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Abstract 

This  thesis  presents  the  tools  necessary  to  transform 
spectral  data  from  diatomic  molecules  into  potential  energy 
curves  which  are  most  consistent  with  the  experimental  data 
and  the  quantum  mechanical  model  (i.e.,  the  Schroedinger  wave 
equation  (SWE))  for  a  diatomic  molecule.  The  first  of  these 
tools,  a  computer  program  called  DUNCON,  generates  spectro¬ 
scopic  constants  by  performing  least-squares  fits  to  spectro¬ 
scopic  data.  The  program  performs  fits  to  separate  groups 
of  data  and  then  merges  the  results  in  a  manner  based  upon 

•s 

the  relative  errors  and  correlations  of  the  separate  data 
sets.  The  second  tool  is  a  computer  program  provided  by 

C.  R.  Vidal  which  contains  two  major  routines.  The  first 
routine  generates  potential  energy  curves  using  the  Rydberg- 
Klein-Rees  (RKR)  method.  The  second  routine  through  an 
inverted  perturbation  analysis  (IPA)  adjusts  the  RKR  curve  so 
it  is  consistent  with  the  SWE  model.  Finally,  techniques 
are  presented  for  extending  potential  energy  curves  to  the 
dissociation  energy,  De  ,  when  the  spectroscopic  data  alone 
is  inadequate  for  the  purpose. 

Use  of  the  programs  is  demonstrated  for  the  diatomic 
molecule  lead-oxide.  Constants  are  produced  for  the  A,  B, 

D,  a,  b,  and  X  states  from  previously  published  experimental 


data.  A  new  set  of  assignments  is  made  for  the  b  state 

«  • 

experimental  data  producing  constants  with  significantly 
improved  accuracy  over  those  reported  in  literature.  The 
b  state  constants  are: 

T  =  16325. 1*11. 2  cm"1 

e 

W  =  430.99±2.47  cm"1 

e 

W  X  =  -0.757+0.441  cm"1 

e  e 

These  are  one  standard  error  limits.  Potential  energy  curves 
are  generated  for  the  a,  A,  and  X  states  of  lead-oxide.  The 
X  state  potential  energy  curve  is  extended  to  its  dissociation 
energy. 


NUMERICAL  METHODS  FOR  THE  PREPARATION 


OF  POTENTIAL  ENERGY  CURVES  OF 


DIATOMIC  MOLECULES 


I  Introduction 


The  construction  of  accurate  potential  energy  curves 
is  essential  to  the  understanding  of  data  gathered  in  pur¬ 
suits  ranging  from  the  study  of  gas  kinetics  to  the  study  of 
stellar  structures.  Potential  energy  curves  are  used  to 
calculate  Franck-Condon  factors  which  can  be  used  to  predict 
the  probabilities  of  an  electronic  transition.  Discussed  in 
this  paper  are  Dunham  coefficients  with  the  corresponding 
model  used  to  represent  experimental  data.  A  computer  program 
called  DUNCON  is  developed  for  generating  a  minimum-variance 
linear  unbiased  (MVLU)  fit  to  independent  sets  of  spectro¬ 
scopic  data.  This  program  has  a  provision  for  merging  these 
fits,  as  appropriate,  to  obtain  weighted,  correlated  estimates 
of  constants  for  data  sets  which  exhibit  different  accuracies 
or  are  correlated.  The  Rydberg-Klein-Rees  (RKR)  method  of 
generating  potential  energy  versus  internuclear  separation 
curves  is  presented.  A  computer  program  which  performs  RKR 
calculations  and  then  uses  an  inverted  perturbation  approach 
(IPA)  (Ref  23)  to  improve  the  accuracy  of  the  RKR  curve  is 


discussed  in  detail.  The  RKR-IPA  program  was  developed  by 
C.  R.  Vidal  and  H.  Scheingraber  (Ref  41).  Utility  of  the 
programs  is  demonstrated  using  data  reported  for  the  diatomic 
molecule  lead  oxide  (PbO) . 

The  accuracy  of  any  potential  energy  curve  depends 
upon  the  analytic  model  used  to  represent  experimental  data 
and  the  manner  in  which  the  constants  in  the  model  are 
generated.  The  Dunham  model  was  chosen  to  represent  the  data 
because  of  the  large  number  of  terms  that  c.an  be  incorporated. 

The  RKR  method  is  a  semi-classical  WKB  method  which 
has  been  shown  to  agree  quite  well  with  quantum  mechanical 
calculations  for  simple  molecules  (Ref  34) .  Because  of  its 
accuracy,  it  has  been  chosen  by  several  researchers  to  ascer¬ 
tain  the  accuracy  of  other  methods  such  as  the  Morse  formula 
for  generating  potential  curves  (Refs  47  and  32) . 

A  recent  improvement  on  the  RKR  method,  though  still  an 
approximate  method,  is  the  IPA  approach  which  starts  with  an 
RKR  curve  and  adjusts  it  to  obtain  an  approximate  but  more 
accurate  solution  to  the  Shroedinger  equation. 

Methods  developed  by  Leroy,  by  Tellinghuisen,  and  by 
Vidal  and  his  coworkers  are  discussed.  These  methods  can  be 
used  to  extend  potential  energy  curves  when  the  available 
experimental  data  does  not  cover  the  entire  range  of  the 
potential  curve. 
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II  Literature  Background  and  Theor 


Modeling  Spectroscopic  Data  for 
Diatomic  Molecules 

Spectroscopic  data  resulting  from  the  emission  of 
energy  by  a  diatomic  molecule  during  a  transition  from  an 
excited  electronic  state  to  a  lower  state  may  be  represented 
as  follows: 

v  (v',jr,v",J")  =  -  T"  (v",J")  (1) 

where  v  is  the  observed  line  frequency  in  wave  numbers,  and 
the  term  values  for  the  upper  and  lower  electronic  states, 

T'  and  T"  respectively,  are  represented  by  the  Dunham  type 
expression: 

T(v,J)  =  I  A. . (v  +  1/2) 1  J3  (J  +  l)3  (2) 

ij  3 

(Ref  48:1866) . 

Although  Eq  (2)  has  the  same  form  as  that  associated 
with  the  Dunham  coefficients,  Y^  ,  (Ref  18),  i.e., 

T (v, J)  =  E  Y..(v  +  1/2) 1  J3  (J  +  l)3  (3) 

ij  J 

researchers  M.  M.  Hessel  and  C.  R.  Vidal  make  the  distinction 
that  their  A^ ^  values  are  not  necessarily  identical  to 
Dunham's  Y^'s  (Ref  22:4443). 


( 


3 


Dunham  arrived  at  the  expression  in  Eq  (2)  by  using 
the  Wentzel-Brillouin-Kramer  method  (WKB)  (Refs  51;  9  and  29) 
to  solve  the  Schroedinger  equation  for  the  rotating  diatomic 
vibrator  for  the  energy  levels  within  one  electronic  state: 


d2  H'  8TT2urj 

W1  Fv2 


E  -  V(£) 


h2  J(J+1) 

8TT2r2^(1  +  U2 


0 


(4) 


where : 

C  =  (r  -  re)/re 

re  =  the  equilibrium  nuclear  separation 
u  =  the  reduced  mass 

V  =  potential  of  the  function,  with  a  minimum  at  rg 
V  =  the  last  term  which  is  due  to  the  centrifugal 
force  of  rotation. 

He  expressed  the  potential  energy  by  expanding  V  about 

K  -  o  . 


V  =  hca2C2(l  +a1£+a2£2+a3£3+...)  (5) 


where  a0  =  w  2/4B  ;  w  is  the  classical  frequency  of  small 

e  e  e 

oscillations  expressed  in  cm-1  and  Bg  =  h/  (8TT2yre  c) 

(Ref  18:732).  Finally,  he  obtained  expressions  for  the  Y^j’s 
in  terms  of  the  a^'s  in  Eq  (5). 

Hessel  and  Vidal  distinguish  their  constants,  , 

from  the  Dunham  constants,  ^  ,  by  pointing  out  that  the 

latter  are  theoretically  derived,  while  the  Aij's  are  the 
results  of  a  least-squares  fit.  Inherent  in  the  least-squares 
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fitting  procedure  is  the  fact  that  the  A^j  coefficients 
absorb  the  effects  of  inaccuracies  in  the  data,  and  are  somewhat 
dependent  upon  the  values  of  their  neighboring  constants  and 
upon  any  missing  constants  (Ref  22:4447).  For  these  reasons, 
the  Aij's  are  only  estimates  of  the  theoretical 
derived  by  Dunham. 

Some  further  discussion  of  the  and  Y^  con¬ 

stants  is  appropriate.  First,  a  listing  of  the  correspondence 
of  Dunham's  constants  and  the  classical  spectroscopic  constants 
is  desirable.  They  are  given  in  Table  1-1. 


TABLE  1-1 

Correspondence  Between  Dunham  Coefficients  and 
Classical  Spectroscopic  Constants 


Y*  o 

Yoi 

e 

Y  0  2 

% 

DeY0  3  *  F  Yo*  ^  H 

Y  i  o 

^  w 

e 

Y  i  i 

Y  1  2 

% 

^e 

y2„ 

^  'WQXQ 
e  e 

Y2i 

y 

f  e 

Y3o 

'v-  w  y 
eJe 

Yi»  o 

^  w 

e  e 

*Y0o  is  defined  as; 


Y00  =  1/4  Y20  +  1/4  Yoi  l(YnY1D/(6  Y^))  -  l)2  (6) 


This  is  the  expression  normally  reported  in  the  literature 
based  upon  the  work  of  Dunham  (Ref  18) ,  although  the  expression 
for  Y0o  is  not  explicity  stated  in  Dunham's  work.  Sandeman 


j 


f  i 


(Ref  40)  and  Jarmain  (Ref  25)  expand  on  Dunham's  work.  Using 
this  material,  the  expression  given  in  Eg  (6)  can  be  verified. 
In  addition  to  this  derivation,  the  expression  for  Y0o  was 
found  in  the  following  works s  (Refs  49;  28:325;  35:117; 
and  41:4450).  The  expression  for  Y0o  was  found  to  be  in 
error  in  two  publications.  First,  Herzberg's  Y0o  is  larger 
than  that  in  Eq  (6)  by  +3/4  Y2o  (Ref  21:109).  Second,  in 
McKeever's  work,  due  to  a  typographical  error,  "+1/4  Y20" 
was  omitted  (Ref  3:47).  The  works  of  Sandeman  and  Jarmain 
compliment  Dunham's  work,  making  easier  the  understanding  of 
Dunham's  work. 

Returning  to  Eq  (1) ,  it  should  be  noted  that  when  a 

least-squares  fit  is  performed  using  Eq  (2) ,  the  bottom  of  the 

potential  energy  curve  of  the  lower  state  is  typically  assigned 

a  value  of  "0."  This  is  done  by  omitting  the  Ago  term  from 

the  fit.  When  Aj0  is  found  from  the  least-squares  fit,  it 

is  not  equivalent  to  Dunham's  Yoo  for  the  upper  state.  For 

this  reason,  Vidal  assigns  an  asterisk  to  Aqo  and  calls  it 
* 

Aoo  .  This  term  is  made  up  of  three  components  as  shown 
(Ref  44) : 


Aoo  =  Aoo  +  Te  “  A? ( 


Aoo  and  Ago  are  estimated  from  Eq  (6).  These  Aoo  and 
Ago  are  then  the  best  estimates  of  Dunham's  Yoo  and  Yg0 
Eq  (7)  can  be  solved  for  Te'  ,  the  electronic  term  energy  of 
the  upper  state: 


C 


6 


Te  *  Ao  o  —  Ao o  +  A" o 


(8) 


In  applying  Dunham's  expression,  one  should  be  aware 
of  its  inadequacies.  Expressions  such  as  the  Morse  potential 
(Ref  21:57) : 

U(r-r  )  =  D  (1  -  exp(-B(r-r  ))2  (9) 

6  6  6 

are  constructed  to  guarantee  that  as  r  -►  r  ,  U  ■*  0  and  as 

r  00  ,  U  approaches  the  dissociation  energy,  .  Eq  (5) 

on  the  other  hand  does  not  necessarily  satisfy  these  two 

criteria.  Sandeman  showed  that  if  Morse's  equation  is  expanded 

about  (r-r  )  =  0  ,  it  takes  on  a  form  similar  to  Dunham's 

e 

Eq  (5) ,  but  is  expressed  in  terms  of  two  constants  and  addi¬ 
tional  numerical  coefficients  as  follows: 

U  =  ao (1  -  a  +  0.583a2£  -  0.250a3£  +  0.086a4£ 

-  ...)  (10) 

A  comparison  of  Eqs  (5)  and  (10)  shows  that  Dunham's  expres¬ 
sion  is  a  more  general  form  of  Morse's  equation.  Sandeman 
also  applies  a  similar  expansion  to  an  equation  for  potential 
energy  developed  by  Kratzner  (Ref  30)  and  obtained  a  similar 
correspondence  with  Dunham's  expression.  Because  of  the 
increased  number  of  variables  and,  in  turn,  the  increased 
flexibility,  Dunham's  expression  has  the  potential  for  being 
more  accurate.  But,  because  of  this  freedom,  obtaining 
constants  which  satisfy  the  convergence  criterion  is  more 
difficult  and  is  not  guaranteed  for  large  values  of  r  or  v  . 


Jarmain  made  a  term-by-term  comparison  of  similar 
expressions  developed  from  Dunham's  work  and  by  the  RKR  method 
and  showed  that^  upon  neglecting  Dunham's  small  corrections , 
the  potentials  produced  by  the  two  are  mathematically  identical 
(Ref  25:217).  Based  upon  this,  the  use  of  Dunham's  expression 
(Eq  (3))  to  represent  spectroscopic  data  for  input  to  an  RKR 
program  for  generating  potential  curves  is  justified  and 
appropriate. 

In  applying  Dunham's  expression,  one  should  remember 
that  his  equations  are  developed  for  small  oscillations  about 
re  .  At  energy  levels  approaching  the  dissociation  limit, 

Eq  (2)  may  no  longer  be  appropriate.  Eqs  (1)  and  (2)  are 
for  simple  cases.  In  cases  where  A-type  doubling  occurs, 
or  where  isotopic  effects  are  being  considered,  more  complex 
models  must  be  substituted  for  Eqs  (1)  and  (2) .  Works  cited 
in  the  bibliography  by  Vidal  and  his  coworkers  present  varia¬ 
tions  of  Eq  (2) . 

Spectroscopic  Constants  by  Merging  Least- 
Squares  Fit  Data 

The  large  quantities  of  data  obtained  in  a  spectro¬ 
scopic  analysis  requires  that  the  data  be  reduced  to  a  more 
manageable  form.  For  example,  Eqs  (1)  and  (2)  in  the  previous 
section  are  used  to  calculate  reportable  constants.  To  make 
these  models  usable,  the  A^j  coefficients  must  be  determined. 
The  most  widely  used  method  of  generating  these  coefficients 


is  to  perform  a  linear  least-squares  fit  to  the  experimental 
data.  For  spectroscopic  data,  a  model  is  created,  typically 
involving  a  power  series  expansion  based  upon  the  rotational 
and  vibrational  quantum  numbers  as  expressed  in  Eqs  (1)  and 
(2) .  If  only  band  head  data  is  being  analyzed,  the  model 
takes  the  following  form: 

v  =  EA'.o  (V*  +  1/2)  -  E  A'lotv"  +  1  /2f  (11) 

1  0  1  IQ  1 

If  several  different  transitions  are  involved, 
different  values  of  the  AY  ground  state  constants  may  be 
obtained.  In  addition,  the  accuracy  of  the  A"'s  may  be 
different.  It  is  desirable  to  merge  these  constants  and  obtain 
a  best  estimate  of  the  ground  state  constants.  This  can  be 
done  by  accomplishing  a  weighted  least-squares  fit  of  the  data. 
Such  a  merging  can  produce  more  accurate  estimates  of  the  con¬ 
stants  and  reduce  the  error  limits  associated  with  them.  The 
merged  fit  may  also  improve  the  upper  state  constants. 

Merging  may  also  be  desirable  for  the  case  when  two 
groups  of  data  are  available  with  significantly  different 
standard  errors.  For  example,  if  infrared  data  for  vibration- 
rotation  band  transitions  and  microwave  data  for  transitions 
between  adjacent  rotational  levels  are  available,  the  greater 
accuracy  of  the  microwave  data  can  improve  the  accuracy  of  the 
other  constants  if  a  weighted  merged  fit  is  performed. 

There  are  other  methods  of  data  fitting  available. 

These  methods  include  least  absolute  deviation,  least-squares 


deviation,  maximum  likelihood,  and  minimum  chi-squared.  All 
have  different  fit  criteria  (Ref  2:3).  Also,  nonlinear  least- 
squares  fits  are  possible  (Refs  4  and  15) .  The  present  report 
deals  only  with  the  least-squares  fit  techniques. 

The  least-squares  method  or  "regression"  method 
minimizes  the  sum  of  the  squared  deviations  between  observed 
values  and  values  calculated  using  the  constants  obtained 
from  the  fit.  The  least- squares  method  provides  the  minimum- 
variance  linear  unbiased  (MVLU)  estimates  of  the  constants; 
that  is,  the  least-squares  method  introduces  no  bias.  The 
fits  produced  are  linear  functions  of  the  data.  When  the 
fit  is  used  to  reproduce  data,  the  generated  data  exhibits 
the  smallest  possible  variance  from  the  original  data  that  can 
be  achieved  with  the  model  and  data  used  (Ref  2) . 

In  performing  a  least-squares  fit,  the  following 
assumptions  are  made: 

1.  The  model  (equation)  chosen  tc  represent  the  data 
is  a  perfect  description  of  the  physical  event. 

2.  The  model  is  linear  in  the  constants  to  be 
estimated. 

3.  The  mean  error  of  the  experimental  data  is  zero. 
Any  systematic  error  present  must  be  small  compared  to  the 
variances  and  random  errors  of  the  data. 

4.  The  variance-covariance  elements  must  be  finite 
and  their  relative  values  known  if  different  groups  of  data 
are  to  be  merged  (Ref  2:7). 
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In  reducing  spectroscopic  data,  three  methods  are 
available: 

1.  The  reduction  of  each  band,  i.e.,  each  a  group  of 
transitions  from  one  electronic  state  to  another,  separately. 

2.  The  reduction  of  a  number  of  bands  simultaneously. 

3.  The  reduction  of  the  bands  separately  and  then 
merging  the  resulting  data. 

The  first  and  third  techniques  are  developed  in  this 
paper.  The  method  of  approach  is  now  described.  Least-squares 
fitting  techniques  are  based  upon  the  following  matrix  equation 

v  =  xe  +  e  (12) 

where  v  is  a  column  matrix  containing  the  experimentally 
observed  line  frequencies  expressed  in  wavenumbers,  X  is 
a  matrix  made  up  of  the  (v  +  1/2)  and  the  J (J  +  1)  terms 
as  dictated  by  the  model  in  Eqs  (1) ,  (2) ,  or  (11)  as  chosen. 

3  is  a  column  matrix  made  up  of  the  A^  ^  constants  which  are 
to  be  calculated.  The  c  column  matrix  contains  the  unknown 
errors  associated  with  each  observed  experimental  data  point. 
These  matrices  are  written  out  explicity  in  Appendix  A  to 
aid  the  user  in  understanding  the  program  DUNCON. 

Eq  (12)  is  then  solved  for  6  as: 

3  =  (XT  X)'x  XT  v  (13) 
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The  estimated  variance  of  the  fit  is  expressed  as  follows 


a2  =  (v  -  XB)T  (v  -  X8)/f  (14) 

m 

where  f  is  the  degree  of  freedom  of  the  calculation.  The 
ro 

degrees  of  freedom,  f  /is  equal  to  the  number  of  experi¬ 
mental  values  v  used  in  the  fit  minus  the  number  of  constants 
to  be  obtained  in  the  B  matrix.  The  variance-covariance 
matrix  for  the  constants  obtained  in  Eq  (13)  is  calculated  by 
the  following  relation: 

9  =  a2  (XT  X)  ~1  (15) 


The  diagonal  elements  of  the  9  matrix  are  the  variances  of 
the  constants  and  the  off  diagonal  elements  are  their  covari¬ 
ances.  The  correlation  between  the  calculated  constants  is 
expressed  by  the  correlation  coefficients  which  are  obtained 
using  the  variances  and  covariances  in  the  following  manner: 


0.  .  /  ( 9  .  .0.  .)  2 

13  n  33' 


(16) 


The  subscripts  refer  to  the  two  constants  for  which  the  co¬ 
efficient  expresses  the  correlation. 

As  mentioned  earlier,  the  performance  of  separate  fits 
to  each  band  will  yield  several  values  for  the  constants 
associated  with  the  lower  electronic  state.  The  variances 
for  different  bands  may  also  differ  significantly.  If  the 
variances  of  the  bands  are  the  same,  the  data  can  be  combined 


r 
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in  one  large  data  group  and  reduced  simultaneously.  If 
estimates  of  the  errors  are  available,  a  weighted  fit  based 
upon  the  error  may  and  should  be  performed. 

Albritton  describes  an  approach,  the  correlated 
least-squares  fit,  which  is  more  general  than  the  weighted 
least-square  fit  (Refs  2  and  3) .  Albritton  showed  that  one 
need  not  use  all  raw  data  at  one  time  to  obtain  a  merged  fit. 
He  showed  that  a  weighted  simultaneous  multiband  fit  and  a 
merged  band-by-band  fit  are  equivalent.  The  merged  fit  is 
presented  in  this  paper. 

The  bands  or  other  groups  of  data  are  first  reduced 
in  a  least-squares  manner  as  previously  discussed. 

Then  the  data  obtained  in  the  initial  least-squares 
fit  may  be  expressed  in  the  following  manner: 

y  =  XSM  +  S  (17) 

where  y  is  a  column  matrix  made  up  of  the  constants  obtained 

from  the  separate  least-squares  fits  and  SM  is  a  column 

matrix  which  will  hold  the  desired  merged  constants.  The 

y  matrix  will  often  contain  several  values  for  the  same 

constant.  Each  constant  will  be  represented  only  one  time  in 

the  3  matrix.  The  X  matrix  relates  the  redundant  values 

M 

in  the  y  matrix  to  the  corresponding  constants  in  the  6 
matrix.  Explicit  examples  of  these  matrices  are  given  in 
Appendix  A. 


13 


To  perform  a  weighted,  correlated  least-squares  fit,  a 


matrix  composed  of  the  variance-covariance  matrices  from  a 
separate  least-squares  fit  is  required.  This  matrix  is  given 
the  symbol  "01."  It  is  structured  as  follows: 


0 


01  = 


0  02  0 


0 


0 


0  3 


(18) 


where  0i  ,  02  and  83  are  the  variance-covariance  matrices 

of  Eq  (15) .  The  formula  required  to  obtain  the  merged  con¬ 
stants  is  as  follows: 


0M  =  (XT0I'1X)  *x  XT0I  -1  y  (19) 

The  estimated  variance  of  the  new  merged  fit  is  given  by: 

o2  *  (y  -  X0M)T0I'1  (y  -  X0M)/fm  (20) 

where  f  is  the  degree  of  freedom.  The  variance-covariance 
m 

matrix  of  the  merged  constants  is  obtained  by  the  following 
calculation : 


0M  =  o2  (XT0I  '*X)  _1 


(21) 


The  formulas  are  discussed  in  future  detail  in  the  appendices. 

As  in  all  analysis,  the  data  should  be  checked  to 
insure  that  the  errors  predicted  by  the  least-squares  fit 
follow  a  normal  distribution  pattern.  Albritton  provides  a 


fairly  complete  discussion  of  the  checks  commonly  used 
(Ref  2:14-31) . 

Having  established  that  the  errors  of  the  data  are 
normally  distributed,  one  should  then  construct  confidence 
limits  for  the  constants  based  upon  the  degrees  of  freedom 
and  the  confidence  one  wishes  to  have  that  the  true  value 
is  within  the  assigned  limits.  The  placing  of  too  much 
reliance  upon  error  limits  specified  by  one  standard  devia- 

j, 

tion,  lx0/v  •  should  be  avoided.  Even  if  a  large  sample  of 

data  is  taken,  one  can  only  be  about  68%  certain  that  the 

"true  value"  lies  within  a  range  of  ±1x0?^  .  If  a  95% 

confidence  level  is  desired  and  the  degrees  of  freedom,  f  , 

*5  m 

is  greater  than  30,  one  must  assign  limits  of  ±2x0^ 

w 

The  multiplier  of  9?^  is  student's  t-f actor.  It  is  named 
after  its  originator,  W.  S.  Gosset  (1876-1937).  It  is  a  func¬ 
tion  of  the  degrees  of  freedom  of  the  calculation  and  the 
desired  confidence  level,  "l-x."  Dixon  and  Massey  (Ref  17) 
give  a  tabulation  of  student's  t-factor  as  a  function  of  the 
degrees  of  freedom  and  the  degree  of  confidence.  The  confi¬ 
dence  limits  for  the  constant  are  then  expressed  as  follows: 

8.  +  t(f  ,  l-a)0j.  (22) 

i  m  xi 

Having  established  the  limits,  one  can  assume  that  the  proba¬ 
bility  of  the  true  value  of  falling  within  the  limit 
it8?.  is  "1-a"  where  a  may  vary  between  0  and  1. 
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With  the  confidence  limits  for  the  estimated  constants 
properly  established,  one  can  then  determine  if  the  constants 
are  significant  (Ref  27) .  For  example,  if  a  constant  has  a 
value  of  3  and  an  assigned  error  limit  of  ±5,  the  range  in 
which  the  true  value  of  the  constant  might  be  found  is  -2  to 
+8.  This  range  includes  0;  hence,  the  constant  is  not 

u 

significant.  If  the  assigned  confidence  limits,  B^±t0^ 
includes  zero,  then  the  constant  is  insignificant  and  may 
normally  be  discarded.  Two  exceptions  to  this  rule  may  be 
encountered. 

The  first  exception  concerns  the  case  where  a  non-zero 
correlation  between  two  molecular  constants  exists.  If  non¬ 
zero  correlation  coefficients  are  involved,  standard  errors 
must  be  calculated  using  the  most  general  formulation  involving 
both  variances  and  covariances.  If  large  correlations  exist, 
the  rounding  of  a  constant  to  the  number  of  significant  digits 
dictated  by  the  standard  error  of  the  constant,  may  result  in 
loss  of  information,  i.e.,  rounding  may  introduce  unnecessary 
inaccuracies  into  the  calculated  data  (Ref  2:2). 

Albritton  suggests  that  one  digit  beyond  the  "one 
standard  error  digit"  should  suffice  for  most  fits.  A  simple 
check  is  to  use  the  rounded  constants  and  see  that  they  repro¬ 
duce  to  some  desired  accuracy  the  values  calculated  using  the 
unrounded  constants  obtained  from  the  fit. 

The  second  exception  occurs,  where  it  may  prove 
necessary  to  retain  a  constant  when  not  justified  by  the  standard 
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error,  in  the  extension  of  the  potential  curve  to  its  dissocia¬ 
tion  limits  (Ref  10:83). 

Before  merging  data  from  separate  least-squares 
fits,  a  check  should  be  made  for  systematic  errors.  A  simple 
check  is  to  verify  that  for  a  given  set  of  confidence  limits, 
say  95%,  the  error  limits  for  the  common  constants  obtained 
in  two  independent  fits  overlap  each  other.  If  they  do  not, 
then  it  is  probable  that  one  set  contains  a  systematic  error. 

A  second  more  sophisticated  test  involves  the  computation 
of  the  confidence  limits  for  the  differences  for  pairs  of 
corresponding  constants  checking  to  see  if  they  include  zero 
(Ref  2:45).  Calculation  of  the  confidence  limits  of 
differences  involves  student's  t-f actor  and  methods  are  given 
by  Bennet  and  Franklin  (Ref  5) ;  and  Dixon  and  Massey  (Ref  17) . 

A  more  extensive  discussion  of  the  covariance-variance  data 
and  how  it  may  be  used  is  presented  by  Albritton  (Refs  2  and 
3)  . 

Finally,  Albritton  provides  a  recommendation  as  to 
what  data  should  be  provided  in  a  report  on  the  results  of  a 
spectroscopic  study.  He  lists  the  following  as  essential 
data : 

1.  The  observed  line  numbers  (with  assignments). 

2.  If  room  permits,  the  variance-covariance  matrix 
used  to  merge  the  data. 

3.  The  model  used  to  represent  the  experimental  data. 
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4.  The  estimated  molecular  constants. 

5.  The  standard  error  of  the  constants  and  the 
degrees  of  freedom  involved  in  the  calculations.  This  data 
will  enable  the  reader  to  establish  his  own  confidence  limits. 

6.  The  estimated  variance  of  the  variance,  oq  ,  may 
be  helpful.  An  estimate  of  this  value  for  large  samples  of 
normally  distributed  data  may  be  obtained  by  the  formula 

(Ref  16) : 

a  =  a/[2fjh  (23) 

a  m 

Other  data  which  may  be  appropriate  include  the 
variance-covariance  matrix  of  the  final  merged  constants  and 
the  results  of  the  testing  to  determine  the  normality  of  the 
data  sample. 

Rydberg-Klein-Rees  Potential 
Energy  Curves 

Potential  energy  curves  for  diatomic  molecules  are 
plots  of  potential  energy  versus  the  internuclear  distance 
between  atoms.  Figure  II-l  shows  a  typical  curve.  From  this 
plot  of  energy  versus  internuclear  distance,  it  can  be  seen 
that  as  the  nuclei  approach  each  other  the  potential  becomes 
infinite?  and  as  their  separation  increases,  the  curve 
asymptotically  approaches  the  dissociation  energy,  D0 
The  equilibrium  internuclear  distance,  r@  ,  is  the  distance 
at  which  the  potential  energy  of  the  molecule  is  at  a  minimum. 
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The  Rydberg-Klein-Rees  (RKR)  model  for  the  potential 
energy  curve  is  developed  in  this  section.  Rydberg  started 
with  the  expression  for  the  total  energy,  E  ,  for  a  rotating- 
vibrating  diatomic  molecule: 

E  =  p2/2u  +  V (r)  (24) 

The  pz/2y  term  in  Eq  (24)  is  the  kinetic  energy  of  the 
system,  p  in  turn,  is  the  linear  momentum.  The  second  term, 
V(r)  is  defined  as  follows: 

V(r)  =  CJ  (r)  +  </r2  =  U(r)  +  P2/2ur2  (25) 

where  U(r)  is  the  potential  energy  of  the  system,  P  is 
the  angular  momentum  of  the  system,  and  y  is  the  reduced 
mass. 

Based  on  this  energy  expression,  Rydberg  developed  a 
procedure  for  graphically  determining  the  classical  turning 
points  for  a  diatomic  molecule  (Ref  39) .  Klein  modified 
Rydberg's  derivation  so  that  the  turning  point  could  be 
calculated  numerically  (Ref  52) .  Reese  obtained  quadratic  and 
cubic  analytic  solutions  approximating  Klein's  formulas  (Ref  38). 

Klein's  mathematical  development  is  given  here. 

Terms  used  in  the  development  are  shown  in  Fig  II-l  as  an  aid 
in  following  the  presentation.  The  classical  turning  points 
are  deisnged  r'  and  r".  Klein  defined  the  turning  points 
in  terms  of  the  quantities  rj  and  r2  .  For  his  analysis. 


20 


ri  and  r2  are  measured  from  rfi  ,  ri  being  positive 
and  r2  negative.  Then  r'  and  r"  are  defined  as  follows: 


r'  =  rx  +  re  (26) 

r"  =  r  +  r2  (27) 

6 

Then 

dr'  =  dri  (28) 

dr"  =  dr 2  (29) 

dr  =  dri  or  dr2  (30) 


Klein  designated  the  width  of  the  potential  curve  as  2f  and 
from  Eqs  (26)  and  (27)  ,  it  follows  that: 

2f  =  (ri  +  r@)  -  (r2  +  r&)  =  ri-r2  (31) 

The  energy  in  Eq  (24)  may  be  expressed  as  a  function  of 
"I,"  the  action  integral  for  a  rotating  vibrator  and 
These  terms  are  defined  as  follows: 

I  =  ^Pdr  (32) 

k  =  P2/(2m)  (33) 

The  following  relationships  which  involve  the  period, 
x  ,  and  the  average  position  of  a  harmonic  oscillator,  T7r  , 
are  known: 

1/t  =  9E/3I  (34) 
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( 3E/ 9k) 


(35) 


1/r2  = 

p  =  x  ( 9E/ 3k)  (35') 

Using  Eqs  (32)  and  (34)  and  solving  for  the  differential  of 
E  and  adding  the  results,  the  following  is  obtained: 

6E  =  (1/t)  61  +  (p/t)  5k  (36) 

Inverting  Eq  (32)  ,  the  following  is  obtained: 

x  =  3E/3I  (37) 

Setting  Eq  (36)  equal  to  zero  and  solving  for  p  ,  the  follow¬ 
ing  is  obtained: 

P  «-3I/3<  (38) 

From  the  equation  for  the  momentum,  p  =  yv  =  y(dr/dt)  ,  one 
can,  by  integrating  over  one  cycle,  obtain  an  expression  for 
the  period  of  vibration  for  a  harmonic  oscillator: 

t  =  ^ y (dr/p)  (39) 

Solving  Eq  (24)  for  p  and  substituting  into  Eq  (39)  ,  the 
period  of  oscillation  may  be  expressed  as: 

t  =  (y/2)  £  (E-V(r) f^dr  (40) 

The  integral  in  Eq  (40)  can  be  broken  into  two  parts, 
one  to  be  integrated  from  rfi  to  rj  ,  and  the  other  from 
r2  to  rQ  (as  depicted  in  Fig  II-l) .  This  operation  yields: 
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ri  re  % 

t  »  2(vi)5*  [  J  dr/  (E-V(r)  )**  -  $  dr/  (E-V(r) )  ] 


The  factor  of  two  is  introduced  to  account  for  one  vibration 

cycle  from  r  through  rj  and  r2  and  back  to  r  again. 

©  © 

Rearranging  Eq  (41)  and  recombining  the  integrals,  one  obtains: 


x  =  (2y) 


(dri-dr2 ) / (E-V(r) ) 


Now  to  change  the  variables  of  integration,  Klein 
defined  the  following  terms: 


y  =  V (r)  -  V(re) 


x  =  E  -  V(re) 


where  x  is  constant  for  a  given  E  .  Then  r  may  be 
expressed  as  a  function  of  y  as  follows: 


r  =  ri (y) ,  r  >  r 


r  ■  r2  (y) ,  r  <  r 


and  when  at  r  ,  r2 (0)  »  r 2  (0)  *  r 
©  © 

from  Eq  (44) : 


Subtracting  Eq  (43) 


x  -  y  *  E  -  V (r) 


and  if  the  "f"  of  Eq  (3i)  is  function  of  y  ,  then  as 
defined 

rx(y)  -  r2 (y)  *  2f(y)  (48) 


then 


dri/dy  -  dr2/dy  =  2df(y)dy  (49) 

or 

dr !  -  dr 2=  2f'(y)dy  (50) 

Using  Eqs  (45)  ,  (46)  ,  (47) f  and  (50)  to  change  the 
variable  of  integration  and  integration  limits  in  Eq  (42) , 
Klein  obtained: 

yi 

t  *  ;  ( 2u)  ^  2  f'(y)  dy/  (x-y)  **  (51) 

yz 

From  Eq  (43)  when  r  =  rg  ,  then  V(r)  =  V(re>  and  y  =  0 
Thus,  the  integral  in  Eq  (51)  may  be  evaluated  from  0 
(defined  as  the  bottom  of  the  potential  well)  to  some  value 
X  . 

x 

T  =  2  (2V)15  £f'(y)  dy  /  (x-y)  **  (52) 

o 

This  is  the  first  of  two  integral  equations  central  to  Klein's 
derivation. 

Combining  Eqs  (28),  (35),  (35'),  and  (40)  yields: 
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P  -  t  (1/r2)  -  (u/2)*5  J  (1/r2 )  (dr/E-Vlr))**]  (53)- 

By  definition: 

dr/r2  =  -(1/r)  (54) 

Then  Eq  (53)  becomes: 

p  =  -(u/2)  d  (1/r)  /  (x-y)  **  (55) 


Again,  the  integral  in  Eq  (55)  may  be  broken  into  two 
parts.  Then  for  r  >r  : 


r"  =  r2  +  r 


(56) 


1/r"  =  l/(r2  +  re) 


(57) 


and  if  re  is  set  equal  to  "0"  then: 


1/r"  =  1/r ; 


(58) 


Similarily  for  r  <  0: 


1/r"  =  1/n 


(59) 


Then  for  small  oscillations  about  re  ,  Eq  (53)  may  be  written 


as  the  difference  between  the  integrals: 

1/. 

>s 


ri 


1/. 


=  2  (u/2)*  f  J  -d(l/r1)/(x-y)ls  -  J 


1/, 


1/ 


r2 


-d (1/r) / (x-y) *j  (60) 


P  =  (2y) 


(61) 


£  d(l/r2  -  1/ri)  /  (x-y)** 

l/r 

C  2 

Klein  established  the  following  definition: 


2g(y)  =  l/r2  -  l/rx  (62) 

Differentiating  with  respect  to  y  yields: 

2dg(y)  =  (d/dy)  (l/r2)  -  (d/dy)  (1/rx)  (63) 

Changing  the  notation  yields: 

2g'dy  =  d(l/r2)  -  d(l/rx)  (64) 

Substituting  Eq  (64)  into  Eq  (61)  yields: 

Y 

P  =  2  (2U)*5  S  [g'  (y)  dy/ (x-y)  **]  (65) 

0 


with  the  limits  of  integration  assigned  in  the  same  manner  as 
for  Eq  (52).  This  is  the  second  integral  which  is  central  to 
Klein's  derivation. 

In  the  next  step  of  his  development,  Klein  derives 

expression  for  r  and  r  .  ,  the  classical  turning  points 

max  mm  3 

for  a  harmonic  oscillator.  Klein  recognized  that  the  integrals 

for  t  and  p  (Eqs  (52)  and  (65))  were  of  the  Abelian  type. 

w 

He  multiplied  both  sides  by  dx/ (a-x)  and  integrated  both 
sides  from  x  *  0  to  x  *  a  ,  where  a  *  E  -  (V(r)  (Ref 
35:25) ,  i.e. , 
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ot  y=a 

x  dx/(a-x),s  =  2  ( 2 vi )  **  ^  f  ^dy 
0  y=0 

In  Eq  (66) 


x=a 

£  dx/  [a-x)  (x-y) )  ** 
x=y 


(66) 


f  "  (y)  =  f  (a) 


(67) 


and 

a  , 

C  dx/ [ (a-x) (x-y) ]  =  dx/ (-x2+y+a-ay) ^  (68) 

y 

Eq  (68)  may  be  integrated  as  follows  (Ref  6:300): 

Jdx/fuv)*5  =  2/(bd)*5  tan  1  [  (-bduv)  ^/bv]  , 

for  bd>0  (59) 

where  u  =  a+bx  ,  and  v  =  a'+dx  and  for  the  present 
integral : 

a  =  a  a'  =  -y 

b  =  -1  d  =  1 

bd  =  -1 

then  the  integral  can  be  evaluated  to  be 
left  side  of  Eq  (68)  is  evaluated  as: 

a 

^  dx/  (a-x)  **  =  2  (2p)  ^  f  (a) 

0 


it  .  Finally,  the 


(71) 
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:  ^  n  % 


or  solving  Eq  (71)  for  f(a): 


f  (oi)  =  1/  (2tt  <2p)  £  dx/(a-x) 


and  for  a  =  y: 


f  (y)  =  l/(2tr(2y)i)  ^  dx/fy-x)*5 


Similarily,  Eq  (65)  for  "g"  may  be  transformed  into 


the  following: 


,y)  ’  irrwr''  5 


2 7r  ( 2 u )  J  (y-x) 

0 

From  the  definitions  for  x  given  in  Eq  (43) : 


dx  =  dE 


(74") 


Substituting  Eq  (74")  into  Eq  (34)  yields: 


t  dx  =  dl 


Recalling  that  E  is  a  function  of  I  and  <  ,  and  using 

Eq  (47),  Eq  (73)  becomes: 


f(V)  =  1/ (2tt  (2y )  )  £  dI/(V-E  (!,<))  H 


From  Eqs  (34),  (35  "),  and  (74"): 


p  dx  =  p  dE  =  ©E/ 9(c)  dE  =  t(9E/9<)  (9I/t) 


=  (9E/9tc)9I 


i 


and  Eq  (74)  becomes: 


I ' 

g  (V)  =  l/(27T(2y)S  J  3[E(I,<)/3k)  dl  ]  /  (V-E  (I  ,<))  H  (78) 

0 

As  E (I , k)  approaches  V  in  Eqs  (76)  and  (78),  the 
integrals  become  infinite.  To  avoid  these  singularities, 

Klein  instead  evaluated  the  following  expression: 

S(V,<)  =  1/  (  tt  (2y)  **)  (V-E(I,k)  )*dl  (79) 

This  expression  has  the  following  relation  to  the  f  and  g 
of  Eqs  (76)  and  (78)  : 

f  =  3S/3V  g  =  -9S/3<  (80) 

As  shown  in  Eq  (2),  spectroscopic  energy  levels  can 
be  represented  as  power  series  of  (v+1/2)  and  J(J+1) 

It  is  convenient  then  to  express  the  integrals  for  f  and  g 
in  terms  of  the  quantum  numbers  v  and  J 

The  expression  for  the  radial  action  variable  in 
quantum  mechanical  terms  is 

I  =  (v+1/2) h  (81) 

Then 

d (I)  =  d (v+1/2) h  (82) 

The  quantum  mechanical  expression  for  k  is: 

k  =  P?2v  =  J(J+1)  fi2 /2\i  (83) 
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Then 


3/ 3k  =  2 y/fi2  (  3/ 3J ( J  +1)  ) 


Finally,  the  expressions  for  f 


v  '+% 

f <v,j(j+d)  =  ft/(2U)!s  y 

0 


and  g  become : 


_ d(v+H)  i 

[V-E  (v+*s,  J  (J+l)  ]  ^ 


(84) 


(85) 


g (V, J (J+l) 


( 2  u)  V, 


v'+h 


S 


3E/3  (J  (J+l)  1  v+^  d,(v+is ' 
[V-E  (v+*5,  J  (J+l)  )  P 


(86) 


where  the  upper  limit  of  integration  v'  is  selected  such 
that  V  =  E(v'+1/2,J (J+l) )  for  the  fixed  value  of  J(J+1) 
used  in  the  integrals  (Ref  35:27,28). 

If  the  RKR  calculations  are  evaluated  for  J=0  then 
Eq  (2)  reduces  to: 

T  =  Z  Y.  (v+1/2)1  =  G (v)  (87) 

i=l  10 

more  commonly  referred  to  as  Gv 

Eq  (85)  becomes: 

v'  , 

f  =  5  (G(v)  "  G(v')P  dv "  (88) 

v0 

(Ref  24:2),  where  Kaiser  (Ref  26:1686)  defined  the  lower  limit 
of  integration  by  the  following: 


G(v0) 


-Y 


00 


(89) 
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where  Y00  is  the  Dunham  constant  previously  defined  in 
Eq  (6).  The  variable  v0  in  G(v0)  may  be  expressed  in  terms 
of  Dunham  coefficients  as: 

Vo  =  -1/2  -  A  =  -1/2  -(Yoo/YioMl  +  Y0oY20/Y210 

+  .  .  .)  (90) 


For  J  =  0 

3E/  3  J  ( J+l)  =  Y  (v+l/2)n  =  B  (v)  (91) 

n=u  ni 

(Ref  24:2),  where  B(v)  is  the  spectroscopic  term  defined  as 
follows : 

Bv  =  Be  --^v+1/2>  +  Y(v+l/2)2. ..  (93) 

(Ref  21:108) . 


Using  these  definitions,  Eq  (86)  for  g  becomes: 

v 

g(v)  =  5  B  (v')  (G  (v)  -G  (v'jft  dv'  (94) 

Vo 


(Ref  24:2)  . 

From  the  definitions  in  Eqs  (22)  and  (62)  for  f 
and  g  the  following  expressions  for  inner  and  outer  turning 
points  may  be  obtained: 


r  =  (f2  +  f/g)1*  +  f 


(95) 


Solutions  of  the  equations  for  f  and  g  are  discussed 
in  the  section  on  the  RKR  Program  by  C.  R.  Vidal. 
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This  completes  the  theoretical  background  required  for 
the  RKR  calculations.  Second  order  semiclassical  RKR  formula¬ 
tions  are  not  presented  in  this  work.  Several  articles  on 
the  RKR  method  which  were  not  referenced  in  this  work  are 
listed  in  Appendix  C. 

Methods  for  Extending  RKR  Curves 

In  many  cases,  because  of  the  lack  of  experimental 
data,  the  constants  necessary  to  construct  an  RKR  curve  may 
not  be  obtainable  from  straightforward  least-square  fits  or 
their  quality  may  be  insufficient  to  construct  accurate  curves. 
Two  techniques  for  improving  existing  constants  which  may, 
in  turn,  be  used  to  produce  improved  RKR  curves  are  presented 
here  (Refs  10;  53) . 

As  depicted  in  Fig  II-l,  the  potential  energy  curve 
of  a  diatomic  molecule  should  have  a  minimum  at  some  inter¬ 
mediate  distance,  approach  the  dissociation  limit  for  large 
internuclear  separations  and  increase  rapidly  as  the  atoms 
approach  each  other.  Ideally,  curves  generated  using  the  RKR 
method  should  satisfy  these  criteria. 

For  many  diatomic  molecules,  only  two  and,  at  most, 
three  vibrational  constants  are  available.  The  available 
rotational  constants  are  even  more  limited.  Attempts  to 
generate  curves  based  upon  these  constants  using  the  RKR 
method  can  be  expected  to  produce  curves  which  do  not  meet 
the  dissociation  criteria  or  which  do  not  exhibit  an  increasing 
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potential  for  small  internuclear  distances.  These  results 
occur  because  the  experimental  data  upon  which  the  constants 
are  based  may  represent  only  a  fraction  of  the  vibrational 
levels  which  exist  between  the  bottom  of  the  potential  well 
and  the  dissociation  limit. 

To  develop  potential  energy  curves  which  obey  the  known 
constraints,  Leroy  and  Burns  have  reported  on  a  new  technique 
which  shows  promising  results.  While  they  start  with  constants 
obtained  from  experimentally  observed  transitions,  they  then 
adjust  these  constants  slightly  until  the  new  RKR  potential 
energy  curve  is  most  consistent  with  all  of  the  known  con¬ 
straints  . 

Leroy  and  Burns  used  their  knowledge  of  the  desired 
shape  to  adjust  the  constants.  They  worked  with  the  Gv 
and  Bv  quantities  as  expressed  in  Eqs  (87)  and  (91) . 

Expressed  in  terms  of  these  two  quantities,  their  criteria 
for  adjusting  the  molecular  constants  are: 

1.  V(a)  assymptotically  approaches  the  dissociation 
energy  (De)  and  the  difference  between  energy  levels, 

AGv+Jj  ,  becomes  0  for  the  same  value  of  v  .  AGV+Jj  is 
defined  as: 

agv+J5  -  G(v  +  1)  -  G(v)  (95') 

2.  The  slope  of  the  inner  portion  of  the  RKR  curve 
must  be  negative.  Hence: 
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dV(r)/dr  <  0 


(96) 


3.  The  slope  of  the  inner  portion  of  the  curve 
must  become  increasingly  steeper;  that  is,  the  second  deriva¬ 
tive  with  respect  to  the  internuclear  separation  must  be 
positive : 

d2V(r)/dr2  >  0  (97) 

A  study  of  Eq  (88)  reveals  that  as  AGv+^  becomes 
smaller,  the  quantity  f  becomes  larger.  In  turn,  Eq  (94) 
shows  that  f  determines  the  width  of  the  RKR  curve.  Examina¬ 
tion  of  Eq  (94)  further  reveals  that  the  value  g  determines 
the  center  of  the  potential  curve  for  a  given  energy  level. 

In  turn,  Eq  (93)  shows  that  having  determined  the  constants 
necessary  to  generate  the  G(v)'s  ,  the  other  factor  affecting 
the  value  of  g  is  B(v)  ,  a  quantity  whose  value  is 
determined  by  the  rotational  constants,  Yn^  .  From  Eqs 
(88)  ,  (93)  ,  and  (94)  ,  it  follows  that  the  width  of  the  curve, 
as  determined  by  the  RKR  method,  and  the  value  at  which 
AGv+J5  =  0  depends  only  upon  the  vibrational  constants  which 
make  up  Gv  .  On  the  other  hand,  having  selected  suitable 
constants  for  Gv  ,  the  behavior  of  g  ,  the  rate  at  which 
the  outer  portion  of  the  curve  approaches  Dg  ,  and  the 
behavior  of  the  slope  of  the  inner  portion  of  the  curve 
depends  solely  upon  the  constants  which  constitute  Bv 

Following  this  logic,  Leroy  applied  the  criteria  in 

1  above  first.  If  the  constants  obtained  from  experimental 
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data  do  not  satisfy  this  criteria,  the  value  of  the  last 

experimental  constant  is  adjusted  or  a  value  is  selected  for 

the  next  constant,  Yno  ,  in  the  series  given  by  expression 

(8)  .  The  contribution  from  that  constant,  Y„  (v+l/2)n  , 

is  then  subtracted  from  the  G(v)  values  calculated  from  the 

original  experimentally  based  constants.  A  least-squares 

fit  is  then  performed  on  the  adjusted  experimental  data, 

* 

Gv .  : 

3 


n-i 

Gv  .  =  Yio(v.+l/2)* 

^  i  =  i  3 


(Vj+1/2) n 


(98) 


For  a  given  Yno  the  experimental  data  fixes  the  values  of 

the  other  constants.  This  new  set  of  constants  is  tested  to 

determine  if  Gv  approaches  a  maximum  value  of  Dg  .  Leroy 

and  Burns  say  that  if  this  value  approaches  De  within 

<  2  cm"1  then  the  criteria  in  1  is  satisfied.  If  1  is  not 

satisfied,  then  a  new  trial  value  for  Y  is  chosen  and  the 

n  o 

process  repeated  until  1  is  satisfied. 

At  this  point,  a  new  RKR  curve  is  generated  using  the 
new  vibrational  constants,  Yi0  ,  and  the  experimental  rota¬ 
tional  constants,  Yii  .  The  curve  is  then  evaluated 
according  to  criteria  (2)  and  (3).  If  the  inner  portion  of 
the  curve  diverges,  the  process  followed  for  adjusting  the 
constants  for  Gv  is  repeated  for  the  constants  making  up 
Bv  .  The  value  for  the  last  experimental  constant  is 
adjusted  or  a  value  for  the  next  rotational  constant  in  the 
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yji  series  is  selected.  Then  the  Bv  values  given  by  the 
experimental  constants  are  adjusted  as  follows: 

BV.  =  E  Y-HIV.+1/2)1  -  fy  (v  +l/2)n]  (99) 

j  i-o  J  l  J 

Then  a  least-squares  fit  is  performed  to  obtain  a  new  set  of 
rotational  constants  y0)  through  Y  .  The  new  constants 
are  then  used  to  produce  a  new  RKR  curve.  If  the  curve  does 
not  satisfy  the  criteria  in  2  and  3,  then  the  Y  constant 
is  adjusted  and  the  process  repeated  until  .2  and  3  are 
satisfied. 

In  this  manner,  Leroy  and  Burns  obtained  a  set  of 
constants  consistent  with  the  experimental  data  and  with 
criteria  1-3. 

Tellinghuisen  and  Henderson  describe  a  technique  for 
constructing  RKR  based  curves  when  experimental  data  does  not 
permit  the  direct  calculation  of  the  rotation  constants 
(Ref  20) .  Their  technique  is  based  upon  a  combination  of  the 
Morse  and  RKR  potentials?  hence,  Morse-RKR  curves. 

As  explained,  vibrational  constants  provide  all  the 
information  necessary  to  calculate  f  ,  Eq  (88)  and,  thus, 
the  width  of  the  potential  curve,  2f  ,  as  defined  by  Klein 
for  a  given  vibrational  energy  level.  Having  established  the 
width  of  a  potential,  the  remaining  piece  of  information 
required  to  construct  a  potential  curve  is  the  location  of 
either  the  inner  or  outer  branches  of  the  potential  curve,  or 
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the  center  of  the  potential  well,  i.e.,  g  as  obtained  from 
the  RKR  calculations. 

Tellinghuisen  and  Henderson  point  out  that  inner 
turning  points  on  a  potential  curve  might  be  approximated  by 
the  Morse  potential  (Ref  21:101). 

U (r)  =  D  (1  -  e"0(r“re))  2  (100) 

e 


where : 

Dq  =  dissociation  energy,  cm  ^ 
rg  =  equilibrium  internuclear  distance,  A 
B  =  0.12777  we(u/De)5s  (101) 


where 

w&  =  the  vibration  frequency,  cm-1 
u  =  reduced  mass,  amu 
Or  because  of  the  relation 

D  =  w  2/4(w  x  )  (102) 

e  e  e 

8  may  be  expressed  as  follows: 

S  =  0.243555  (ww^)**  (103) 

Using  these  relations,  Tellinghuisen  investigated  25 
different  well-known  potentials  and  found  errors  at  the  dissocia¬ 
tion  limit  for  the  inner  portion  of  the  curve  to  be  typically 
o 

less  than  0.02  A  and  r  to  be  in  error  by  seldom  more  than 

e 

1%. 
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Further,  Tellinghuisen  states  that  a  potential  curve 

in  error  by  Ar  .  has  identifical  classical  and  almost 
min 

identical  quantum  eigenvalues  for  J  =  0  .  The  wavefunc- 

tions  derived  from  a  shifted  curve  would  be  skewed  with  respect 
to  a  proper  wavefunction. 

If  possible,  Tellinghuisen  recommends  the  construction 

of  curves  by  formulas  (102)  and  (103)  using  the  experimental 

w  and  w  x  .  If  only  w  and  D  are  known,  then  a 
e  e  e  1  e  e 

value  of  De  40%  larger  than  the  experimental  De  should  be 
used. 

Tellinghuisen  also  speculates  that  ag  might  be 
calculated  using  an  expression  derived  by  Pekeris  from  the 
Morse  function: 


(Ref  21:109).  Tellinghuisen  found  that  for  23  of  the  25  cases 
he  investigated,  the  aQ  calculated  per  formula  (104)  had  an 
average  absolute  error  of  13%  and  an  average  signed  error  of 
6%. 


If  one  is  seeking  the  rotational  constant  Dg  (YQ2)  , 

the  following  relation  might  be  used: 


(104') 


(Ref  21:10) . 
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Tellinghuisen  cautions  against  using  Bv  values  made 
up  of  only  two  terms,  i.e., 

Bv  =  Be  -a  (v+l/2>  (105) 

because  the  Morse  expression  for  Bv  does  not  terminate  with 
two  terms  as  does  Gv  .  Further,  for  high  values  of  v  , 
the  Morse  Bv  will  differ  from  the  Morse-RKR  Bv.  The  Morse- 
RKR  Bv  value  must  be  determined  by  numerical  methods. 

Inverted  Perturbation  Analysis 

Having  constructed  a  semiclassical  RKR  curve,  the 
next  step  is  to  determine  if  that  curve  is  consistent  with  the 
Schroedinger  wave  equation;  or,  even  better,  to  adjust  the 
curve  so  it  agrees  with  the  SWE.  This  leads  to  the  use  of  the 
inverted  perturbation  approach.  The  goal  of  the  inverted 
perturbation  approach  (IPA)  is  to  adjust  the  potential  energy 
curve  of  rotationless  molecules,  V0 (r)  ,  so  that  the 

quantum  mechanical  eigenvalues,  EvJ  ,  obtained  from  a  solu¬ 
tion  of  the  Schroendinger  wave  equation  agree  in  a  least- 
squares  sense  with  the  measured  term  values,  T(v,J) 

The  IPA  technique  was  first  demonstrated  by  Kosman 
and  Hinze  (Ref  23) .  Vidal  and  Scheingraber  expanded  the  use 
of  the  IPA  method.  Vidal,  in  conjunction  with  several 
authors,  has  applied  the  IPA  method  to  a  number  of  molecules. 

The  Schroedinger  wave  equation  (SWE)  for  a  vibrating 
rotator  (Eq  (4))  is  the  basis  of  the  IPA  method.  To  develop 
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the  IPA  method,  the  SWE  can  be  expressed  as  follows 
(Ref  41) : 

<«§  *  Hrot>  <J(r)  "  Kj<J{r)  (106) 

E^,j  is  the  energy  eigenvalue  specified  by  the  vibration  and 
rotation  quantum  numbers.  Ho  is  the  Hamiltonian  of  the  non¬ 
rotating  molecules  and  is  made  up  of  the  terms: 

»•  -  -  (rife)  afe  +  v",r>  (107» 

where  V0 (r)  is  the  potential  energy  of  the  rotationless 
molecule . 

This  formulation  has  been  simplified  by  neglecting 
terms  describing  electronic  coupling  contributions  (Ref  46) . 
The  rotational  motion  of  the  molecule  is  described 

by : 

"rot  1 4 ttuc  J  F3  (108) 

In  the  inverted  perturbation  approach,  one  starts 
with  an  approximate  potential  V0 (r)  ,  for  example  an  RKR 

potential.  Eq  (106)  is  solved  numerically  for  the  zeroth 
order  eigenvalues  eVj  and  the  radial  wavef unction  ^fej-(r) 

Then  an  energy  correction  AE,  T  is  calculated  according  to 

V  J 

the  following  formula: 


AE  _  =  E  _  -  E® 
vJ  vJ  vJ 


(109) 
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where  E  _  is  the  measured  term  value  as  calculated  from  the 

VO 

spectroscopic  constants  and  quantum  numbers  v  and  J  .  If 
the  difference  between  the  experimentally  determined  term 
values  and  the  eigenvalues  obtained  from  the  SWE  is  suffi¬ 
ciently  small,  the  calculation  is  stopped. 

If  the  difference  exceeds  a  specified  limit,  then  one 
proceeds.  As  stated,  the  goal  is  to  obtain  some  correction 
to  Vo (r)  ,  i.e.,  AV(r)  ,  such  that  the  calculated  and 

experimental  Evj's  agree.  Following  this  reasoning,  then 
the  true  potential,  V0 (r)  ,  being  sought  may  be  expressed 

as  a  sum  of  the  approximate  potential  and  some  delta 
potential : 

Vo  (r)  =  V°0  (r)  +  AV o  (r)  (110) 

In  turn,  it  follows  that  the  true  Hamiltonian  differs  from 
the  approximate  zero  order  Hamiltonian  "Ho  +  H"Qt  by 
AV0 (r)  : 


H°  +  Hrot  =  H°°  +  Hrot  +  Av»(r)  (111) 

First  order  perturbation  theory  gives  the  following  relation¬ 
ship  between  the  perturbation  to  the  Hamilitonian  AV0 (r)  and 
and  the  energy  change  AEvj  : 

iEvJ  =  <*vj|4V”  (r>  <U2> 

To  obtain  a  correction  to  V  (r)  ,  a  mathematical 

expression  of  the  following  form  is  assumed  to  represent 
AV0 (r)  : 
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AVo (r) 


(113) 


rCifj  (r) 


The  selection  of  the  specific  form  of  the  function  f ^ (r)  is 
critical  to  the  convergence  and  solution  of  the  SWE.  Dis¬ 
cussion  of  the  form  of  f^(r)  will  be  postponed  until  the 
section  describing  Vidal's  IPA  program. 

Using  the  f^(r)  and  the  radial  wavef unctions , 

,  obtained  from  the  numerical  solution  of  Eq  (106)  ,  the 
expectation  values  for  f(r)  are  calculated: 

v  =  0 , 1 , 2 , 3 . . . 


f  i(r) 


0 , 1 , 2 , 3  .  .  . 


(114) 


From  Eqs  (112)  and  (113)  ,  it  follows  that: 


AE 


vJ 


fi  (r) 


(115) 


Having  obtained  AE  T  from  Eq  (109)  ,  Eq  (115)  can  be  solved 

V  J 

for  the  Cj  coefficients.  Using  these  coefficients  in  Eq 
(113) ,  AVo (r)  may  be  calculated.  From  this,  a  new  V§ (r) 
is  obtained. 


Vo (r) (new)  =  V§ (r)  (old)  +  AV0 (r)  (116) 

Then  using  the  new  V° (r)  ,  the  calculation  is  repeated  to 

obtain  new  energy  eigenvalues.  Again,  the  calculated  E^.j 
are  compared  with  the  experimental  term  values  T(v,J)  for 
agreement.  If  the  agreement  is  not  acceptable,  the  process 
is  repeated. 
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Elaboration  upon  the  specific  numerical  calculations 
to  solve  Eqs  (106)  through  (116)  is  postponed  until  the  dis¬ 
cussion  of  Vidal's  routine  for  performing  the  IPA  calculations. 
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A  computer  program  called  DUNCON  has  been  developed 
to  generate  spectroscopic  constants.  DUNCON  is  presented 
in  Appendix  A.  The  program  generates  the  constants  by 
separate  least-squares  fits  and  provides  for  the  merging  of 
the  separate  fits  in  a  weighted  manner  as  previously 
described.  A  description  of  the  program,  a  listing  with  a 
sample  fit  and  instruction  on  how  to  use  it  are  contained  in 
Appendix  A. 

A  second  program,  provided  by  C.  R.  Vidal  of  the  Max- 
Planck  Institute  for  Exterrestriche  Physik,  West  Germany, 
has  provisions  for  the  generation  of  potential  energy  curves 
by  the  Rydberg-Klein-Reese  (RKR)  method  and  adjustments  of 
those  curves  by  the  inverted  perturbation  approach  (IPA) . 

The  IPA  routine  adjusts  the  potential  energy  curve  so  it  is 
consistent  with  the  Shroendinger  wave  equation.  A  copy  of 
the  program  with  a  sample  problem,  a  description  of  the 
program,  and  instructions  on  using  the  program  are  included 
in  Appendix  B. 

The  DUNCON  program  and  the  RKR- IPA  program  may  be  used 
in  a  variety  of  combinations  to  generate  constants  and 
potential  energy  curves.  Presented  in  Fig  III-1  is  a  flow 
diagram  describing  the  logic  used  in  applying  these  programs 


in  this  work. 


Fig  III-l.  Flow  Diagram  for  Creation  of  Potential  Energy  Curves 
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DUNCON  is  used  to  generate  spectroscopic  constants 
by  performing  least-squares  fits  to  the  experimental  data. 
These  constants  are  then  used  as  inputs  to  the  RKR-IPA 
program.  This  program  produces  an  RKR  curve  which  is  then 
adjusted  by  the  IPA  portion  of  the  program. 

Several  options  are  available  in  the  use  of  the  RKR- 
IPA  routines.  The  RKR  routine  can  be  used  independently  of 
the  IPA  routine.  The  range  over  which  the  curve  is  generated 
can  be  restricted  to  low  vibrational  energy  levels  or  extended 
to  the  dissociation  energy.  If  limited  to  small  vibrational 
numbers  initially,  the  RKR-IPA  routine  may  be  used  itera¬ 
tively  to  generate  new  constants  and  extend  the  curve  to  the 
dissociation  limit. 

In  this  paper,  after  initially  generating  an  RKR- 
IPA  curve,  the  curve  is  evaluated  according  to  the  criteria 
of  Leroy  and  Burns,  Eqs  (95),  (96),  and  (97).  If  a  satis¬ 
factory  curve  is  obtained,  the  calculation  is  complete.  If 
not  satisfactory,  then  the  constants  are  adjusted  as  pre¬ 
viously  described.  A  modified  version  of  the  program  DUNCON 
is  used  to  perform  the  least-squares  fit  necessary  to  produce 
these  constants.  The  constants  are  then  again  input  into  the 
RKR-IPA  routine.  The  process  is  repeated  until  a  satisfactory 
curve  is  obtained. 

Programs  demonstrating  the  use  of  DUNCON  and  the  RKR- 
IPA  programs  are  presented  in  Appendices  A  and  B.  Results  of 
applying  the  program  to  the  lead-oxide  molecule  are  presented 
in  the  following  chapter. 
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I 


Analysis  of  Spectroscopic  Data 


for  Lead-Oxide 

This  chapter  contains  the  results  of  an  analysis  of 
spectroscopic  data  for  lead-oxide  (PbO) .  The  program  DUNCON 
was  used  to  obtain  spectroscopic  constants  for  the  X,  a, 
b,  A,  B,  and  D  electronic  states  of  PbO.  Constants  from 
published  literature  were  used  to  generate  .potential  energy 
curves  using  the  IPA-RKR  routine.  The  potential  energy 
curve  for  the  ground  state  of  lead-oxide  was  extended  almost 
to  the  dissociation  limit  using  the  extension  techniques  and 
the  RKR-IPA  routine. 

The  experimental  data  of  three  investigations  was 
reduced  using  DUNCON  to  yield  spectroscopic  constants.  The 
data  from  these  investigations  is  presented  in  Table  IV-5. 
Two  ot  the  investigators,  Glessner  and  Synder  (Refs  19;  42) , 
obtained  least-squares  fits,  but  did  not  have  the  computer 
routines  necessary  to  generate  error  estimates  and  merge  the 
data  in  a  weighted-correlated  manner.  Their  data  is  reduced 
error  estimates  obtained,  and  merged  using  DUNCON.  Lead- 
oxide  data  produced  by  Linton  and  Broida  (Ref  33)  is  reduced 
using  DUNCON  and  the  A-X  and  a-X  data  is  merged.  Also,  the 
results  of  all  three  investigations  is  merged  using  DUNCON, 
The  results  of  reducing  the  data  of  each  investigator  for 
each  transition  separately  is  presented  in  Table  IV-1.  This 


data  is  then  merged  in  several  combinations.  The  constants 
resulting  from  these  mergings  are  presented  in  Table  IV-2. 
Presented  in  Table  IV-3  are  the  unmerged  and  merged  estimates 
for  the  D-X  transitions.  The  D-X  data  is  merged  with  other 
data  in  a  separate  fit  to  prevent  its  large  variance  from 
degrading  the  constants  for  the  other  transitions.  Finally, 
the  merged  results  of  Glessner  and  Snyder' s data ,  are  compared 
in  Table  IV-4  with  the  best  previous  published  values  avail¬ 
able. 

The  constants  presented  in  columns  I  and  II  of  Table 
IV— 1  are  not  identical  to  those  reported  by  the  original 
investigators.  When  transforming  their  experimental  data 
from  angstroms  to  wavenumbers,  they  did  not  make  corrections 
for  the  index  of  refraction  of  air  as  previously  discussed. 

The  constants  listed  in  column  III  of  Table  IV-1  are  also 
different  from  the  values  reported  by  Linton  and  Broida.  For 
the  A-X  transition,  they  listed  only  their  new  band  head 
data.  They  used  data  of  other  researchers  to  generate  their 
constants.  Their  published  constants  are  included  in  Table 
IV-4.  The  constants  for  the  a-X  transition  of  column  III, 

Table  IV-2  are  also  slightly  different  from  those  reported 
by  Linton  and  Broida.  Presumably,  the  slight  difference  arises 
from  the  difference  in  weighting  schemes  used  in  this  report 
and  that  used  by  Linton  and  Broida. 
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[41.70]  [33.07]  [4.817] 

19846.0(25.8)  19858.52(6.88)  19864.79(2.38) 

453.5(18.5)  446.30(4.92)  443.31(1.12) 
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TABLE  IV- 3 

Spectroscopic  Constants  for  D-X  Transition  of  PbO  (cm 


Electronic 

State 

Constant 

Unmerged 

Merged 

[322.3] 

[4.19] 

D 

Te 

29897.8(67.4) 

30115.8 (46.1) 

We' 

490.0(30.8) 

542.2(54.9) 

We ' Xe ' 

-16.53(7.72) 

-1.99(13.1) 

X 

We  " 

606.1(33.3) 

720.989  (0.401) 

We  "Xe" 

-8.32(3.53) 

3.5312  (0.0296) 

Errors  Reported  in  Parenthesis  are  One  Standard  Error 
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TABLE  IV- 5 


Lead-Oxide  Spectral  Lines  Assigned  to  the 
D-X,  B-X,  A-X  and  a-X  Transitions 


Energy (cm“l) 

Assignments 

Observed 

Calculated 

Obs-Calc 

v'  ,v" 

Transition 

Investiga 

(Ref 

28589.0 

tor:  Snyder 
2)  ) 

28607.2 

-18.2 

0/2 

D-X 

28432.8 

28453.7 

-20.9 

1/3 

D-X 

27648.9 

27625.7 

23.2 

2,5 

D 

27534.6 

27501.3 

33.3 

3,6 

D 

27076.0 

27075.5 

00.5 

1,5 

D 

26788.7 

26829.9 

-41.2 

3,7 

D 

26555.3 

26529.3 

26.0 

0,5 

D 

26394.0 

26387.0 

-3.0 

1,6 

D 

24122.4 

24120.5 

1.9 

4,0 

B 

23630.9 

23632.5 

-1.6 

3,0 

B 

23146.1 

23144.0 

2.1 

2,0 

B 

22640.3 

22655.1 

-14.8 

1,0 

B 

22175.3 

22165.8 

9.5 

0,0 

B 

21450.0 

21452.0 

2.0 

0,1 

B 

20749.4 

20745.2 

4.2 

0,2 

B 

20055.5 

20045.5 

10.0 

0,3 

B 

19646.0 

19645.5 

0.5 

2,5 

B 

19346.0 

19352.9 

-6.9 

0,4 

B 

18772.8 

18784.0 

-11.2 

3,7 

B 

17802.4 

17806.7 

-4.3 

1,7 

B 

17631.6 

17631.2 

0.4 

2,8 

B 

21054.4 

21051.1 

3.3 

3,0 

A 

20166.0 

20167.0 

1.0 

1,0 

A 

19811.0 

19809.6 

1.4 

5,3 

A 

55 


Energy (cm_l) 


Assignments 


Observed 

Calculated 

Obs-Calc 

v'  ,v" 

Transition 

14732.2 

14731.8 

0.4 

2,3 

a 

14481.2 

14483.1 

-1.9 

0,2 

a 

14260.0 

14260.1 

-0.1 

1,3 

a 

13782.7 

13783.4 

-0.7 

0,3 

a 

13561.7 

13567.4 

-5.7 

1,4 

a 

13353.6 

13353.6 

0.0 

2,5  " 

a 

13083.0 

13090.8 

-7.8 

0,4 

a 

12932.2 

12932.5 

-0.3 

4,7 

a 

12874.0 

12881.9 

-7.9 

1,5 

a 

12473.5 

12470.5 

3.0 

3,7 

a 

12399.9 

12405.2 

-5.3 

0,5 

a 

12266.0 

12268.2 

-2.2 

4,8 

a 

12199.5 

12203.3 

-4.3 

1,6 

a 

12065.8 

12068.0 

-2.2 

5,9 

a 

11801.3 

Investiga 

Glessner 

11806.1 

itor: 

(Ref  (19)) 

-4.8 

3,8 

a 

23629.2 

23632.5 

-3.3 

3,0 

B 

23162.7 

23144.0 

18.7 

2,0 

B 

22661.3 

22655.1 

6.2 

1,0 

B 

21444.6 

21452.0 

-7.4 

0,1 

B 

20745.1 

20745.2 

0,2 

B 

20042.7 

20045.5 

-2.8 

0,2 

B 

19840.6 

19842.2 

-1.6 

1,4 

B 

19453.7 

19455.5 

-1.8 

3,6 

B 

18928. L 

18924.9 

3.2 

6,9 

B 

18759.8 

18761.3 

-1.5 

7,10 

B 

TABLE  IV- 5 — Continued 


Energy (cm~l) 

Assignments 

_ » 

Observed 

Calculated 

Obs-Calc 

V*  / v " 

Transition 

13781.7 

13783.4 

13564.1 

13567.4 

13085.4 

13090.8 

Investigator:  Linton 

&  Broida  (Ref  (33)) 

1 

22364 

22367.4 

21930 

21929.9 

21654 

21653.6 

21494 

21491.2 

21221 

21216.1 

20949 

20946.8 

20777 

20777.3 

20245 

20247.1 

20069 

20070.6 

20168 

20167.0 

19366 

19370.9 

19117 

19117.0 

18679 

18678.2 

17994 

17992.7 

17083 

17081.5 

14483 

14880.9 

14440 

14439.5 

14229 

14230.7 

14217 

14210.1 

13998 

13996.8 

13789 

13789.3 

13585 

13587.5 

13390 

13391.4 

TABLE  IV- 5 — Continued 


I  r  i  wwNiw.. 


Energy  (cm~l) 

Assignments 

Observed 

Calculated 

Obs-Calc 

v'  ,v" 

Transition 

13201 

13201.1 

-0.1 

5,13 

A 

13347 

13346.6 

0.4 

1,10 

A 

13146 

13146.1 

-0.1 

2,11 

A 

12951 

12951.3 

-0.3 

3,12 

A 

12761 

12762.3 

-1.3 

4,13 

A 

12580 

15279.1 

0.9 

5,14  - 

A 

12511 

12509.9 

1.1 

2,12 

A 

12323 

12322.3 

0.7 

3,13 

A 

12141 

12140.3 

0.7 

4,14 

A 

11964 

11964.2 

-0.2 

5,15 

A 

20448 

20450.9 

-2.9 

10,0 

a 

20022 

20018.1 

3.9 

9,0 

a 

19582 

19580.4 

1.6 

8,0 

a 

19307 

19304.2 

2.8 

9,1 

a 

19139 

19137.9 

1.1 

7,0 

a 

18877 

18866.6 

10.4 

8,1 

a 

13691 

18690.4 

0.6 

6,0 

a 

18597 

18597.5 

0.5 

9,2 

a 

18431 

18424.0 

7.0 

7,1 

a 

18236 

18238.2 

-2.2 

5,0 

a 

18160 

18159.8 

0.2 

8,2 

a 

17977 

17976.6 

0.4 

6/1 

a 

17782 

17781.0 

1.0 

4,0 

a 

17526 

17524.3 

1.7 

5/1 

a 

17317 

17319.0 

-2.0 

3,0 

a 

17272 

17269.8 

2.2 

6,2 

a 

17067 

17067.2 

-0.2 

4,1 

a 

16854 

16852.1 

1.9 

2,0 

a 
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Examination  of  Table  IV-1  reveals  values  of  v*  for 

e 

the  X-state  ranging  from  715.7  to  731.5  cm"^.  DUNCON  permits 
the  merging  of  the  data  listed  in  Table  IV-1  in  a  weighted- 
correlated  least-squares  fashion. 

The  results  of  the  merging  are  presented  in  Table 

IV-2.  Error  limits  for  w  of  the  X-state  are  reduced 

e 

from  a  maximum  standard  error  of  ±11.3  cm  ^  to  ±0.620  cm  ^ 
when  the  data  in  columns  I  and  II  of  Table  IV-1  are  merged. 
The  results  are  presented  in  column  I,  Table  IV-2. 

Column  II,  Table  IV-2  contains  the  smallest  error 
estimate  for  the  constants  of  the  a-,  A-,  and  X-electronic 
states.  The  variances  for  the  merged  fits  of  columns  I  and 
II  are  similar,  1.0248  and  1.008,  respectively.  But  when 
the  data  in  columns  I  and  II  are  merged  to  yield  column 
III,  Table  IV-2,  the  estimated  variance  of  the  fit  and,  in 
many  cases,  the  standard  errors  of  the  individual  constants 
increase.  Examination  of  (columns  I  and  II)  the  a-  and  X- 
states  reveals  term  electronic  energies,  Tg  ,  with  error 
limits  of  comparable  magnitude  which  do  not  overlap.  Because 
of  this,  when  merged,  the  error  limits  reflect  the  equal 
weighting  of  the  "almost  significant"  differences  and,  hence, 
the  increased  error  limit  reflects  a  bias  in  one  or  both  of 
the  data  sets. 

Column  III  of  Table  IV-2  reflects  the  most  conserva¬ 
tive  error  estimate  of  the  three  columns  in  Table  IV-2.  It 
is  also  based  upon  the  largest  quantity  of  data. 
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In  reporting  constants,  a  researcher  may  be  tempted 
to  manipulate  the  constants  of  the  ground  state  and  report 
the  constants  obtained  from  the  least-squares  fits  for  the 
upper  state.  For  example,  if  a  routine  for  merging  fits  is 
not  available,  one  might  average  the  constants  for  the  ground 
state  or  obtain  a  weighted  average  based  upon  the  error 
estimates.  The  temptation  then  is  to  report  the  averaged 
ground  state  constants  and  the  upper  state  constants  obtained 
from  the  original  least-squares  fits.  Reporting  constants 
in  this  fashion  is  undesirable  for  two  reasons.  First,  the 
constants  reported  in  this  manner  will  not  faithfully  repro¬ 
duce  the  experimentally  observed  data.  Second,  a  better 
estimate  of  the  ground  state  has  been  obtained.  This  new 
estimate  of  the  ground  state  constants  should,  in  turn,  be 
used  to  ascertain  how  well  the  upper  state  constants  are  known. 
This  can  be  done  by  removing  (adding)  the  energy  contribu¬ 
tions  of  the  ground  state  from  the  experimental  data  and 
performing  a  least-squares  fit  to  obtain  the  upper  state 
constants.  These  new  upper  state  constants  and  the  average 
ground  state  constants  should  provide  an  accurate  reproduction 
of  the  experimental  data  and  an  accurate  set  of  constants 
for  the  generation  of  potential  energy  curves.  The  approach 
just  described  is  not  necessary  if  a  routine  such  as  DUNCON 
is  available  for  merging  data.  Even  though  it  is  available, 
the  use  of  DUNCON  to  form  a  merged  fit  may  not  be  desirable 
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if  large  quantities  of  data  are  involved  and  the  ground  state 
constant  has  already  been  well  defined. 

Often  the  data  merged  from  different  investigators 
may  contain  different  experimental  values  for  the  same  assign¬ 
ment  (v*,v").  If  after  using  DUNCON  to  obtain  the  best 
estimate  of  the  constants,  one  of  the  experimental  values 
agrees  with  the  fit  and  the  other  does  not,  then  one  might 
remove  the  poorer  data  point  and  perform  the  fit  again.  This 
approach  should  be  used  with  caution. 

Presented  in  Table  IV-4  are  the  constants  obtained 
by  merging  the  experimental  data  of  Glessner  and  Snyder. 
Presented  for  comparison  are  results  published  by  other 
researchers. 

The  data  used  to  produce  the  constants  of  Tables 
IV-1  and  IV-2  is  presented  in  Table  IV-5.  The  calculated 
values  of  Table  IV-5  were  obtained  using  the  constants  of 
column  III,  Table  IV-2  and  Table  IV-3  for  the  D  state. 

The  D-state  constants  were  obtained  in  a  separate 
merged  fit  from  that  used  to  obtain  the  other  constants 
because  of  their  large  error.  The  values  reported  by 
Bloomenthal  (Ref  8)  produced  a  better  fit  for  his  data; 
hence,  his  constants  are  the  preferred  constants. 

The  B-state  constants  reported  by  Bloomenthal  provide 
a  better  fit  to  his  data  than  the  constants  reported  here 
fit  the  B  data  listed  in  Table  IV-5.  This  statement  must  be 
modified  slightly.  Bloomenthal  did  not  provide  "observed- 

** 
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calculated"  values  for  all  the  data  he  listed.  Hence,  these 
values  may  not  have  been  included  in  his  estimate  of  the 
constants. 

The  A-state  constants  reported  in  Table  IV-4  provide 
a  reasonable  agreement  with  those  reported  by  Linton  and 
Broida  (Ref  33) .  The  reported  constants  are  based  upon  the 
merging  of  data  reported  by  Glessner  and  Snyder. 

The  small  a-state  constants  reported  in  Table  IV-4 
rival  those  reported  by  Linton  and  Broida  in  accuracy.  Table 
IV-2  shows  that  the  merged  data  of  Glessner  and  Snyder  pro¬ 
duces  constants  with  error  limits  of  magnitude  comparable  to 
that  reported  by  Linton  and  Broida. 

The  ground  state  (x)  constants  reported  in  Table  IV-4 
agree  well  with  those  reported  by  Linton  and  Broida.  The  merging 
of  Glessner' s  and  Snyder's  data  resulted  in  constants  for 
the  X-state  with  significantly  smaller  errors  than  those 
obtained  in  separate  fits  of  their  data. 

The  discussion  of  the  b-state  data  was  reserved  until 
last,  because  they  were  obtained  by  making  reassignments  of 
many  transitions  that  were  published  in  previous  works. 

The  b-state  constants  listed  in  Table  IV-1,  column  I 
are  based  upon  the  six  assignments  marked  by  asterisks  in 
Table  IV-7.  The  assignments  were  made  by  Glessner  and  Snyder 
(Refs  19;  42)  based  upon  the  works  of  Kurylo,  et.al.  (Ref  31) . 

The  variance  of  the  constants  in  Table  IV-2  is  remarkably 
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small  considering  that  only  six  data  points  with  five  constants 
were  used  yielding  a  degree  of  freedom  of  one.  A  review  of 
Kurylo's  tentative  assignments  and  tentative  assignments 
made  by  Oldenborg,  Dickson,  and  Zare  (Ref  36)  show  a  much 
greater  difference  between  the  observed  and  calculated  values 
than  would  be  expected  from  the  constants  of  Table  IV- 1. 

Using  the  b-state  constants  of  Table  IV-1,  new  assignments 
were  made  for  the  experimental  data  which  had  been  marked  as 
belonging  to  the  b-X  transition  by  Kurylo  and  Oldenborg. 

It  was  possible  to  make  new  assignments  for  29  of  34  observed 
values  which  had  been  reported  as  belonging  to  the  b-state. 
Twenty-six  of  those  were  used  in  a  least-squares  fit  to 
generate  new  b-state  constants.  DUNCON  was  used  to  perform 
separate  least-squares  fits  to  the  data  of  Snyder  and 
Glessner,  and  to  the  data  of  Kurylo  and  Oldenborg.  Then 
DUNCON  was  used  to  merge  the  results  of  these  fits.  A  copy 
of  the  program  with  the  results  is  presented  in  Appendix  A. 

The  resulting  b-state  and  X-state  constants  are 
presented  in  Table  IV-6.  The  26  assignments  used  to  obtain 
the  constants  are  listed  in  Table  IV-7.  The  "observed- 
calculated"  values  are  presented  for  comparison  with  those 
of  the  original  investigators.  For  the  26  values  used  in  the 
new  fit,  a  standard  error  of  +10.5  cm  was  obtained.  For  the 
15  values  which  the  investigators  reported  "observed-calculated" 
values,  their  standard  error  was  +47.4  cm.  It  should  be  noted 


67 


TABLE  IV- 6 


Spectroscopic  Constants  for  b-X 
Transition  for  Lead  Oxide 


State 

Te 

We 

WeXe 

b 

X 

16325.1(11.2) 

430.99  (2.47) 

721.41(4.35) 

-0.757 (0.165) 

3.700 (0.441) 

that  this  error  was  due  to  uncertainties  in  the  assignments 
and  not  the  quality  of  the  data. 

The  second  part  of  Table  IV-7  contains  those  values 
which  were  published  as  b-X  transitions  for  which  no  assign¬ 
ments  had  been  made  at  the  time  the  fit  was  performed.  After 
the  new  constants  were  calculated,  assignments  were  made  for 
three  more  b-X  transitions. 

The  new  assignments  presented  in  this  paper  were  made 
without  access  to  the  raw  spectral  data  and,  hence,  information 
concerning  the  relative  intensities  of  each  transition.  It 
is  also  probable  that  some  of  the  assignments  of  the  transi¬ 
tions  to  the  b-state  are  incorrect.  For  example,  the  last 
value  of  Table  IV-7,  an  experimentally  observed  value  of 
15672  cm-1  was  assigned  as  a  b-X  transition.  This  value 
corresponds  closely  with  the  value  of  15662  cm”*  observed  by 
Linton  and  Broida  and  assigned  to  the  a-X  transition  series. 
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TABLE  IV-7 

Lead-Oxide  Spectrum  for  the  b-X  Transition 


60 


16066.8  16062 


TABLE  IV-7 — Continued 


This  concludes  the  discussion  of  program  DUNCON  and 
the  results  of  its  application  to  lead-oxide.  Only  a  small 


portion  of  the  PbO  data  available  was  used  in  the  present 
analysis.  Rotational  data,  if  used,  should  increase  the 
quality  of  the  constants.  A  more  extensive  evaluation  of  the 
literature  data  with  the  selective  discarding  of  "erroneous" 
data  points  should  yield  better  constants. 

Lead-Oxide  RKR-IPA  Curves 

To  demonstrate  the  use  of  the  RKR-IPA  program,  the 
X— ,  a-,  and  A-states  were  selected  for  evaluation.  Curves 
were  drawn  for  the  X-,  a-,  and  A-states  using  the  results  of 
the  RKR  routine  alone  or  using  the  combined  RKR  and  IPA 
routine  (RKR-IPA  curve) .  The  resulting  potential  energy 
curves  are  presented  in  Fig.  IV-1  for  the  X- ,  A- ,  and  the 
a-states.  For  the  A-state,  the  curve  presented  in  Fig.  IV-1 
is  an  RKR  curve,  while  for  the  X-  and  a-states,  they  are 
RKR-IPA  curves.  The  RKR  and  IPA  results  are  presented  for 
the  X-  and  a-states  in  Tables  IV-8  and  IV-9,  respectively. 

The  RKR  data  for  the  A-state  is  presented  in  Table  IV-10. 

The  constants  used  to  generate  these  curves  for  each  state  is 
presented  in  Table  IV-11. 

The  ultimate  use  of  a  potential  should  be  to  predict 
what  transitions  should  occur.  A  sophisticated  analysis  would 
involve  the  calculation  of  Franck-Condon  factors  from  the  wave 
functions  resulting  from  the  solution  of  the  Schroedinger  wave 
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Internuclear  Separation,  Angstroms 

Fig  IV- 1 .  Potential  Energy  Curves  for  Lead-Oxide 
X,  a,  and  A  Electronic  States 
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TABLE  IV- 10 

RKR  Potential  for  the  A-State  of  Lead-Oxide 


V 

Gv ( cm  ^ ) 

O 

R-A 

R+A 

0.0 

222.30 

2.025 

2.168 

2.5 

1328.32 

1.937 

2.288 

5.0 

2427.60 

1.890 

2.367 

7.5 

3520.12 

1.856 

2.432 

10.0 

4605.90 

1.829 

2.491 

12.5 

5684.92 

1.807 

2.546 

15.0 

6757.20 

1.788 

2.597 

Y0)  = 


0.28500 
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equation.  But,  it  is  possible  to  arrive  at  certain  conclu¬ 
sions  without  calculation  of  the  Franck-Condon  factors. 

For  example,  examination  of  the  a -state  and  X-state  curves 
show  that  no  overlap  exists  between  the  "v^=0"  energy  level 
for  the  a-state,  and  "v"=0"  for  the  X-state.  This  indicates 
that  such  a  transition  is  classically  forbidden.  In  Table 
IV-5,  a  transition  observed  at  15898  cm  had  been  assigned 
to  the  a-X  (0,0)  transition.  Reevaluation  showed  that  the 
15898  band  head  should  be  the  a-X  (3,2)  transition.  Both 
assignments  were  acceptable  within  the  error  limits  of 
fit.  The  relative  positioning  of  the  potentials  indicate  that 
only  the  (3,2)  transition  is  possible.  The  calculated  value 
for  the  a-X  (3,2)  transition  is  15898.4  cm 

The  next  step  should  be  the  generation  of  a  new  set 
of  constants  using  the  formulas  for  Gv  and  Bv  and  the 
newly  obtained  energy  eigenvalues  Gv  and  Bv  values 
generated  by  the  IPA  routine.  This  technique  was  applied 
to  the  ground  state  IPA  potential  of  Table  IV-8.  From  this, 
the  following  constants  were  generated  for  the  ground  state: 

Y1q  =  720.991(0.058)  cm 
Y20  =  3.5357(0.00479) 

The  calculation  of  new  values  for  the  rotational  constants 
Yqi  ,  Y^  ,  etc.,  from  Bv  was  not  performed. 

The  calculations  using  only  Vidal's  RKR-IPA  method 
were  halted  at  this  point.  Attempts  to  extend  the  curves  to 
the  dissociation  limit  "in  one  jump"  produced  a  potential 

7S 
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which  diverged  as  the  curve  approached  the  dissociation  limit 
(see  Fig  IV-2) .  Not  having  data  for  vibrational  levels  above 
about  v=15,  the  iterative  techniques  of  gradually  extending 
the  curve,  as  discussed  by  Vidal  and  Stawalley  (Ref  43),  were 
not  attempted.  They  used  the  IPA  method  to  improve  the  RKR 
curve  at  lower  levels,  and  then  on  successive  trials, extended 
the  curve  slowly  to  the  dissociation  limit. 

The  reader  is  referred  to  Vidal' s  works  listed  in  the 
Bibliography  and  in  Appendix  C  for  further  .information  concern¬ 
ing  the  generation  of  new  constants  and  the  extension  of 
potential  curves  to  the  dissociation  limit  using  the  IPA 
routine . 

This  completes  the  discussion  of  the  use  of  the  RKR- 
IPA  program  by  itself  to  generate  potential  curves.  The  next 
section  presents  use  of  the  RKR- IPA  technique  in  conjunction 
with  Leroy's  extension  techniques  to  produce  a  potential 
energy  curve  which  extends  to  the  dissociation  limit. 

Extension  of  the  X-State  Lead-Oxide 
Potential  Energy  Curve  to  the 
Dissociation  Limit,  De 

The  potential  energy  curve  for  the  ground  state  of 
lead-oxide  was  selected  as  the  likely  candidate  for  extension 
to  the  dissociation  energy,  De  .  This  selection  was  based 
upon  the  fact  that  the  constants  for  the  ground  state  have 
the  smallest  standard  errors. 

The  vibrational  constants  of  Linton  and  Broida  were 
selected  as  starting  values  because  of  their  small  error 
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-  RKR  Curve  (Linton  and  Broida,  Suchard  Constants) 

-  "Extended  Constants,"  RKR-IPA  Curve 

Fig  IV-2.  Lead-Oxide  X-State  Potential  Energy  Curves 
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limits.  The  creation  of  potential  energy  curves  also  requires 
the  knowledge  of  rotational  constants.  The  rotational  con¬ 
stants  were  selected  from  Suchard  (Ref  45) .  Table  IV-12 
contains  the  original  constants  and  the  final  set  of  constants 
used  in  extending  the  curve  to  the  dissociation  limit. 

The  method  prescribed  by  Leroy  was  used.  Linton  and 
Broida's  constants  were  used  to  generate  a  set  of  G(v)'s 
according  to  Eq  (87)  for  v=0  to  15.  A  trial  value  was  selected 
for  Y40  and  the  other  constants,  Y^q  ,  -  Y2Q  ,  and  Y^0 
were  solved  for  by  performing  a  least-squares  fit  to  the 
value  obtained  from  Eq  (98)  .  Program  DUNCON  was  modified  to 
perform  the  fit.  The  process  was  repeated  until  the  criterion 
of  "AGv+^s  =  0"  at  Dg  was  satisfied. 

Suchard' s  constants  were  used  to  generate  a  set  of 
Bv's  for  v=0  to  15  according  to  Eq  (93).  A  trial  Y21  was 
selected  and  new  YQ^  and  Y11  constants  were  obtained  from 
a  least  squares  fit  to  the  values  calculated  by  Eq  (99). 

The  new  vibrational  constants  and  rotational  constants 
were  used  as  the  inputs  for  the  RKR-IPA  program.  The  process 
of  adjusting  the  rotational  constants  was  repeated  until  the 
criteria  expressed  in  Eqs  (95'1  (96)  ,  and  (97)  were  satisfied. 

The  last  set  of  constants  calculated  are  presented  in 
Table  IV-12  as  the  extended  constants.  The  complete  numerical 
results  of  the  IPA-RKR  routine  are  presented  in  Appendix  B. 

The  "Final  Set  of  Turning  Points"  as  output  by  the  IPA 
routine  was  used  to  create  the  potential  curve  (solid  line) 


81 


TABLE  IV-12 


Constants  Used  to  Extend  the  Lead-Oxide  X-State 
Potential  Energy  Curve  to  the 
Dissociation  Limit,  De 


Constants 

Original  Values 

Extended  Values 

Y10 

720.97(0.36) 

721.062849 

Y20 

-  3.536 

-  3.57101904 

Y30 

3. 85076374X1 0~ 3 

Y40 

-  1.29X10'4 

Y01 

0.307519 

0.30726775 

Y11 

-  1.9167X10*3 

-  1.7667X10-3 

Y2 1 

-  1.5X10"5 

Y02 

0. 22X10-6 

0.22X10-6 

D  =  31570+410.  cm 
e 
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in  Pig  IV-2  which  satisfies  the  dissociation  criteria.  The 
dashed  line  in  Fig  IV-2  is  the  RKR  curve,  as  defined  by  the 
original  constants  of  Linton  and  Broida,  and  Suchard.  It 
should  be  noted  that  the  constants,  as  presented  in  Table 
IV-12,  will  only  produce  the  curve  in  Fig  IV-2  when  input 
into  an  RKR-IPA  routine.  Examination  of  the  "Final  Set  of 
Turning  Points"  yields  a  minimum  inner  turning  radius  of 
about  1.62  angstroms  for  vibrational  quantum  numbers  from 
v=33  to  v=69.  Examination  of  the  turning  points  for  the 
initial  "Potential  Generated  by  RKR,"  listed  at  the  beginning 
of  the  RKR-IPA  program  output  in  Appendix  B,  shows  RMIN 
turning  points  as  small  as  1.54  angstroms  for  v=74.  For 
v=69,  the  last  vibrational  quantum  number  investigated  by  the 
IPA  routine,  the  RKR  program  returned  an  RMIN  of  1.59  ang¬ 
stroms.  This  decreasing  value  in  RMIN  indicates  that  the 
left  branch  of  the  curve  would  diverge  just  as  shown  by  the 
dashed  line  on  the  left-hand  side  in  Fig  IV-2.  The  turning 
points  of  the  RKR  potential  were  of  sufficient  quality  that 
the  IPA  program  was  able  to  correct  the  potential  to  yield 
the  solid  curve  of  Fig  IV-2.  In  this  work,  the  procedure 
described  above,  was  the  final  one  used;  however,  continued 
refinements  are  possible  by  the  use  of  the  RKR-IPA  program. 
The  next  step  should  be  to  take  the  G(v)  [U (R) ]  and 
B (v)  [BV*100]  values  as  output  by  the  IPA  program  and  per¬ 

form  a  least-squares  fit  to  obtain  a  new  set  of  YnQ  and  *n| 
constants.  These,  in  turn,  would  be  used  as  input  for  the 


constants  from  the  experimental  data  and  calculating  the 


higher  Y  ,  ,  constants. 

3  n+,n+ 

The  convergence  of  the  IPA  routine  became  very  sensi¬ 
tive  as  the  "sought  for  value"  of  the  last  vibrational  con¬ 

stant  was  approached.  For  the  example,  the  IPA  routine  would 
not  converge  when  values  of  ^  =  -1.25xl0-5  or  Y  =  1.75x10 
were  used.  The  program  would  converge  for  values  of  Y 
larger  and  smaller  than  these,  but  the  shape  of  the  resulting 
curve  diverged  from  the  desired  shape.  An  .indication  of  the 
convergence  of  the  IPA  routine  may  be  obtained  by  looking 

at  the  next  to  the  last  output  of  the  IPA-RKR  program,  "The 

Summary  of  Errors  of  the  Inverted  Perturbation  Approach." 

Due  to  the  fact  that  the  "Final  Set  of  Turning  Points" 
fluctuates  about  1.62  angstroms  and  the  potential  is  increas¬ 
ing  asymptotically  along  1.62  angstroms,  multiple  potential 
energies  are  presented  for  the  same  RMIN  turning  point  value. 
Thus,  when  searches  are  performed  using  a  turning  point  radius 
value  [XXX]  as  in  DO-loop  55  of  POTTAB,  and  PLYNN  called  from 
this  loop,  the  routine  stops  at  the  first  value  satisfying 
the  requirement  [XXX]<X(J)  (Subroutine  PLYYN) .  The  end 
result  is  that  potential  energies  corresponding  to  turning 
points  of  magnitude  of  less  than  about  1.62  angstroms  in  the 
"Final  Potential"  should  not  be  accepted  as  valid  without 
close  inspection.  Improved  constants  and  successive  itera¬ 
tions  of  the  RKR-IPA  routine  may  remove  this  discrepancy. 
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V.  Summary  and  Recommendations 


The  programs  and  techniques  necessary  to  transform 
molecular  spectra  for  diatomic  molecules  into  potential  energy 
curves  have  been  presented  and  described  in  detail.  The 
program  DUNCON  performs  least-squares  fits  to  separate  data 
sets  and  then  merges  them  in  a  weighted-correlated  manner 
based  upon  the  variances  of  the  separate  fits  to  yield 
spectroscopic  constants.  The  RKR-IPA  program  presented  first 
calculates  "semi-classical"  turning  points  based  upon  spectro¬ 
scopic  constants.  It  then  adjusts  the  resulting  RKR  potential 
through  an  inverted  perturbation  technique  to  yield  a  poten¬ 
tial  energy  curve  whose  energy  eigenvalues  are  in  best  agree¬ 
ment  with  the  model  of  a  vibrating-rotating  diatomic  molecule 
as  specified  by  the  Schroedinger  wave  equation  and  with  the 
experimentally  observed  data.  The  routing  also  calculates 
the  wave  functions  for  the  potential  energy  curve. 

Techniques  were  presented  for  extending  potential 
energy  carves  to  their  dissociation  limit  when  experimental 
data  does  not  permit  such  an  extension  by  straightforward 
application  of  the  RKR  technique. 

Using  DUNCON,  constants  for  the  a-X,  A-X,  B-X,  and 
D-X  transitions  were  calculated  from  experimental  data.  The 
results  are  presented  in  Tables  IV- 1,  IV-2,  and  IV-3.  The 
calculated  values  agree  well  with  published  values  for  these 


states 
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A  new  set  of  assignments  was  made  for  b-X  transi¬ 
tions.  The  new  constants  calculated  for  the  b-state  are 
presented  in  Table  IV-6,  and  the  new  assignments  are  in  Table 
IV-7.  The  new  assignments  and  constants  produced  a  fit  with 
a  standard  error  of  10.49  cm-^  versus  47.9  cm  ^  for  the 
previous  published  assignments. 

Recommendations 

1.  The  use  of  Leroy's  technique  for  extending  a  curve 
to  its  dissociation  limit  in  conjunction  with  the  RKR-IPA 
routine  should  be  tested  upon  a  potential  energy  curve  whose 
shape  is  known  and  for  which  experimental  data  is  available 
all  the  way  up  to  the  dissociation  energy.  If  the  technique 
produces  a  curve  and  energy  eigenvalues  consistent  with  a 
curve  based  upon  experimental  data  then,  the  validity  of  the 
method  will  be  confirmed. 

2.  This  technique  for  extending  curves  might  be 
further  verified  by  applying  it  to  two  different  states;  for 
example,  a-  and  b-states  of  lead-oxide,  whose  dissociatic 
energies  are  the  same.  The  coincidence  of  their  potential 
energy  curves  at  large  separations  should  serve  to  verify 
both  the  extension  technique  and  the  quality  of  the  constants 
used  in  construction  of  the  curves. 

3.  A  complete  investigation  of  all  published  data 
using  DUNCON  should  produce  a  better  set  of  constants  for 
lead-oxide.  This  is  particularly  true  for  cases  where  two 
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investigators  have  given  different  energy  levels  for  the  same 
transition.  The  judgment  as  to  which  data  is  the  more 
accurate  should  be  based  upon  the  constants  produced  by 
DUNCON. 

4.  Constants  obtained  from  a  least-squares  fit  should 
be  reported  as  a  group.  If  not,  care  should  be  taken  to 
report  how  the  constants  were  obtained. 

5.  The  reassignments  made  for  the  b-X  transitions 
should  be  evaluated  by  an  investigator  with  access  to  data 
specifying  the  relative  intensities  of  the  experimental  data. 
These  were  not  available  for  the  assignments  made  in  this  work. 

Also,  the  b-state  constants  should  be  reevaluated 
using  a  more  accurate  set  of  X-state  constants  as  opposed  to 
those  obtained  from  the  least-squares  fit  of  the  b-X  data. 

By  fixing  the  value  of  the  X-state  constants,  it  may  be 
possible  to  obtain  a  positive  wexe  for  the  b-state.  Having 
a  positive  w0xe  ,  then  Eq  (102)  and  Tellinghuisen' s  method 
for  constructing  a  potential  energy  curve  might  be  used. 
Alternatively,  Eq  (101)  might  be  applied.  Prom  the  potential 
energy  curve,  it  might  be  possible  to  determine  what  transi¬ 
tions  are  more  probable.  Some  information  along  these  lines 
can  be  obtained  by  assuming  a  similarity  between  the  a-state 
potential  and  estimating  the  position  of  the  b-state  curve 
relative  to  the  a-state  curve. 

6.  Vidal  made  use  of  the  RKR-IPA  routine  to  improve 
RKR  curves  for  low  energies  and  then  used  these  improved 


curves  to  extend  the  curves  in  small  increments  to  higher 
energy  levels.  This  technique  has  not  been  pursued  and  warrants 
further  investigation.  The  RKR-IPA  routine  could  even  be  used 
to  improve  constants  for  low  energy  levels,  i.e.,  small  "v", 
prior  to  using  them  in  the  previously  described  extension 
technique.  Both  techniques  warrant  further  investigation. 
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Program  DUNCON 

The  following  section  contains  the  program  DUNCON. 

The  program  has  provisions  for  obtaining  separate  least- 
squares  fits  to  separate  data  sets  and  then  merging  the 
resulting  constants  in  a  weighted-correlated  fashion  based 
upon  the  variances  and  covariances  of  the  original  separate 
fits. 

Presented  first  is  a  written  description  of  the 
program  and  instructions  on  how  to  use  the  program.  Follow¬ 
ing  that  is  a  listing  of  the  program  with  a  sample  output. 

j 
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Merged  Least-squares  spectroscopic 
Constants  Program 

Program  DUNCON  is  structured  so  the  user  can  generate 
a  least-squares  fit  to  several  different  groups  of  data  which 
have  different  standard  errors  and  then  merge  the  fits  to 
obtain  a  weighted,  correlated  linear-least  squares  fit  as 
described  in  the  previous  discussion  on  least-squares  fits 
(Refs  2  and  3) .  DUNCON  is  written  in  Fortran  V.  A  copy  of 
DUNCON  follows  in  this  appendix. 

The  user  must  set  up  the  model  which  will  be  used  to 
fit  his  spectroscopic  data,  input  the  data,  dimension  the 
arrays  used  in  his  program,  and  call  the  subroutines  WAVNUM, 
CONST,  MATEQ ,  VECEQ ,  MATINV,  and  MERCN  to  obtain  a  merged 
least-squares  fit.  In  turn,  these  routines  call  on  a  package 
of  matrix  manipulating  routines  (Ref  13)  contained  in  the  sub¬ 
routine  MATMULT. 

Program  DUNCON 

The  user  has  complete  freedom  in  structuring  this 
portion  of  the  program.  To  perform  a  least-squares  fit,  the 
user  must  choose  a  model  to  represent  his  data.  For  data 
representing  transitions  between  electronic  states,  the  follow¬ 
ing  is  a  typical  model  using  Dunham  coefficients  (Ref  18) s 

v  =  T'  +  Yio  +  *20  -  *"o  -  *20  (117) 

where  v  is  the  frequency  of  the  transition  expressed  in 
units  of  cm-1. 


As  previously  described,  a  series  of  transitions 


(v)  may  be  represented  in  matrix  notation  as: 

v.  ■  }^B,  +  e,  k  =  1,2,3 


(118) 


k  k  k  k 

where  v  is  a  column  matrix  made  of  experimentally  determined 
wavelengths  or  wavenumbers: 


v  = 


v2 

V 

n 


(119) 


The  X  matrix  is  made  up  of  the  v'+l/2  ,  (v^+1/2)  , 

v"+l/2  ,  and  (v"+l/2)  terms: 


1  vi+1/2 

wr+i/2) 2 

v"+l/2 

(v"+l/2) 

X  = 

1  v^+1/2 

(V2+1/2) 2 

v"+l/2 

(v" +1/2) 

1  v;+l/2 
n 

<v'+l/2)  2 

v^+1/2 

(vVl/2) 

This  X  matrix  is  calculated  in 

lines  18- 

28  of  the 

(120) 


CONST.  As  the  specific  model  chosen  to  represent  spectro¬ 
scopic  data  may  vary,  the  user  must  define  this  section  of 
CONST. 

The  6  column  matrix  (vector)  will  contain  the  constants 
of  the  least-squares  fits. 
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Yio' 

Y20' 

Yio" 

Y20" 
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To  operate  the  program,  the  user  must  input  the 
following  data: 

1.  v — the  experimentally  determined  energy  of  transi¬ 
tion  expressed  in  either  angstroms  (A)  or  wavenumbers  (cm  . 
In  the  sample  program  in  this  appendix,  v  is  called  ANUx, 
where  the  small  "x"  represents  the  additional  characters 
necessary  to  identify  a  specific  group  of  data.  This  conven¬ 
tion  is  continued  throughout  the  discussion  in  this  section. 

2.  v^ — the  vibrational  quantum  number  associated  with 
the  upper  state  and  referred  to  as  QVlx  in  the  program.  It 
shoul  i  be  entered  as  a  decimal. 

3.  v^ — the  vibrational  quantum  number  associated  with 
the  lower  state  and  referred  to  as  QV2x  in  the  program.  It 
should  be  entered  as  a  decimal. 

NOTE:  the  values  of  ANUx,  QVlx,  and  QV2x  for  each 
observed  transition  must  be  associated  with  each  other  by  sub¬ 
scripts.  (The  subscript  is  placed  in  parenthesis  and  the 
subscript  must  start  with  "0".)  For  example: 
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ANUx(O) ,QVlx (0) ,QV2x (0) 

ANUx(l) ,QVlx (1) ,QV2x ( 1) 

ANUx (2) ,QVlx(2) ,QV2x (2) 

etc. 

4.  N — the  number  of  constants  minus  one  to  be 
calculated  in  the  initial  least-squares  fit.  For  the  model 
in  Eq  (117),  N  should  be  defined  as  follows:  N  =  5  -  1  =  4. 

5.  Mx — corresponds  to  the  number  of  experimental 
values  to  be  included  initially  in  a  data  set  for  least- 
squares  fitting  prior  to  the  merging  step. 

6.  MM — corresponds  to  the  total  number  of  constants 
minus  one  which  are  generated  in  the  initial  least-squares 
fits  for  each  of  the  independent  data  sets.  For  example,  if 
the  calculation  is  for  two  different  transitions,  i.e.,  A-X, 

B-X,  and,  as  in  Eq  (1),  five  constants  are  to  be  calculated  then 
MM  =  2*5  -1=9. 

7.  MM — the  number  of  constants  to  be  obtained  in  the 
merged  least-squares  fit. 

8.  XM (0 :MM, 0 :NM) — the  coefficient  matrix  which  relates 
the  redundant  variables  obtained  from  independent  least-squares 
fits  to  the  desired  final  set  of  variables.  It  controls  the 
merging  of  the  constants  obtained  in  the  separate  least- 
squares  fits  to  yield  the  merged  weighted,  correlated  least- 
squares  constants  by  the  following  formula: 

sM  =  (xTei“1x)"1  xTei"1y  ( 122) 
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For  a  problem  involving  five  constants  for  each  of  two 
electronic  transitions,  the  XM  matrix  would  be  of  size  14x5 
and  contain  the  elements  as  follows: 
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Fig  A-l .  Coefficient  Matrix  XM 


9.  THETAI (0:MM,0;MM) — this  matrix  is  made  by  merging 
the  variance-covariance  matrices  obtained  from  each  of  the 
independent  least-squares  fits.  The  details  of  its  construc¬ 
tion  will  be  provided  in  the  discussion  of  the  subroutine 

MATEQ.  The  user  must  initially  fill  the  matrix  with  zeros. 

2 

The  matrix  has  (MM+1)  elements.  For  example,  if  MM=9,  then 
the  statement,  DATA  THETAI  (100*0D0)  will  initialize  the 
matrix. 

This  concludes  the  data  input  required  of  the  user. 

The  only  tasks  remaining  are  the  assembly  of  dimension  state¬ 
ments  and  construction  of  statements  in  the  main  portion  of 
the  program  to  execute  the  least-squares  and  merging  routines. 

The  sequence  of  statements  required  to  perform  a 
least-squares  fit  for  each  set  of  data  are  as  follows: 

CALL  WAVNUM 
CALL  CONST 
CALL  MATEQ 
CALL  VECEQ 

In  the  following  section,  the  statement  names  and  their 
arguments  are  listed  along  with  a  brief  description  of  the 
routine. 

WAVNUM (ANUx, MX ) 

This  subroutine  converts  data  contained  in  the  array 
ANUx(0:Mx)  from  angstroms  to  wavenumbers  invacuo  (cm-1)  by 
means  of  a  correction  for  the  index  of  refraction  of  air 

(Refs  7  and  21).  ANUx  is,  as  described  above,  an  array  of 
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the  Mx  experimental  values  for  one  group  of  data.  NOTE:  If 
ANUx  is  entered  as  wavenumbers,  this  statement  is  omitted. 


CONST (ANUx , QVlx , QV2x , BETx , THETx , Xx , X tx , XTXx , XTXXTx , XBx , 
ANUXBx , C VRCx , Mx , N ) 

This  routine  does  the  work  of  obtaining  minimum 
variance  least-squares  constants.  It  solves  the  matrix 
equation  as  outlined  below: 


V 

=  XS  +  e 

(124) 

8 

=  <xT  X)"1  xTv 

(125) 

a2 

=  (v  -  X8)T  (v  -  X8)/fm 

(126) 

0 

=  a2 (XT  X)-1 

(127) 

The  correspondence  between  the  arguments  for  CONST  and  these 
equations  are  as  follows  including  the  dimensions  required 
for  the  arrays:  ANUx(0:Mx)  =  v 

QVlx (0 :Mx)  and  QV2x(0:Mx):  These  entries  are  the 
quantum  mechanical  vibration  numbers  which  are  for  the  upper 
(v^)  and  lower  (v")  states  respectively,  and  are  used  to 
generate  the  Xx  matrix  as  previously  described. 

Xx(0:Mx,0:N)  =  X:  This  matrix  is  generated  by  CONST 
in  lines  18-28,  as  dictated  by  the  user  and  by  the  model  chosen 
to  represent  the  data. 
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XTx(0:N,0:Mx)  =  X  s  This  matrix  is  the  transpose  of 
matrix  X  and  is  generated  by  the  subroutine  TRNSPZ  called 
from  CONST. 

XTXx  =  first(XTX),  then  (XTX)”^:  This  matrix  is  the 
T 

product  of  X  and  X  formed  by  the  subroutine  MATMLT.  The 
matrix  is  then  replaced  by  its  inverse  by  the  routine  MATINV. 

XTXXTx ( 0 ; n , 0 : M)  =  (XTX)-1XT:  This  matrix  is  the  pro¬ 
duct  of  the  inverse  of  the  first  matrix  times  the  transpose 
of  the  second. 

BETx(0:N)  =  (XTX)”1XTvs  This  column  matrix  (vector) 
contains  the  least-squares  estimate  of  the  constants  in  Eq  (1) . 
It  is  formed  by  multiplying  the  matrix  XTXXTx  times  the 
vector,  v  ,  using  the  routine  MATVEC. 

XBx (0 :Mx)  =  X8:  This  column  matrix  is  the  product 
obtained  from  the  subroutine  VECVEC.  It  is  the  calculated 
estimate  of  the  original  experimental  values  based  upon  the 
constants  obtained  from  the  least-squares  fit  of  the  experi¬ 
mental  data. 

ANUBx(0:Mx)  =  (v  -  X3)  :  This  column  matrix  (vector) 
contains  the  differences  between  the  measured  and  calculated 
values  of  wavelength  for  a  given  data  set.  The  calculation 
is  performed  by  the  routine  VECSUB. 

VARINZ  =  a2  -  (v  -  X3)T  (V  -  XS)/f  :  VARINZ  is  a 

m 

scalar  and  is  the  estimated  variance  of  the  least-squares  fit. 
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The  variance  is  given  in  the  output  of  the  program,  f  is 
the  degree  of  freedom,  Mx  -  N.  VARINZ  is  calculated  in  the 
routine  CONST. 

THETx ( 0  :  N ,  0  :  N )  =  0  =  a2  (XTX)-1:  THETx  is  the 

variance-covariance  matrix  for  the  calculated  constants. 

Estimates  of  the  variance  for  the  constants  are  contained  on 

the  diagonal  with  off  diagonal  elements  being  the  covariances. 

The  matrix  is  obtained  from  the  product  of  the  scalar,  a2  , 

T  -1 

and  the  matrix,  (X  X)  ,  using  the  routine  SCAMAT. 

CVRCx (0 :N,0 :N) :  This  matrix  is  generated  by  CVRCOR 
which  is  called  from  CONST.  It  contains  three  types  of  data. 

1.  Above  its  diagonal  it  contains  the  same  covariances 
of  the  constants  as  in  THETx. 

2.  The  diagonal  contains  the  estimate  of  the  standard 
error  of  each  of  the  constants. 

3.  The  elements  below  the  diagonal  are  the  correla¬ 
tion  coefficients  associated  with  the  constants.  The  coeffi¬ 
cients  are  calculated  by  the  following  formula: 

c  =  9ij  /  <eiie j j> 15  (129) 

where  0^j  are  the  elements  of  the  matrix  0  .  Since  the 

matrix  is  symmetric,  the  procedure  of  reporting  variances  for 
the  top  half  and  covariances  for  the  bottom  half  is  sufficient. 
The  results  are  printed  in  the  program  output. 

This  completes  the  description  of  the  arrays  required 
for  the  least-squares  fit  of  one  group  of  data.  If  it  is 


necessary  to  perform  a  least-squares  fit  on  several  sets  of 
data  and  merge  them  to  obtain  a  correlated,  weighted,  least- 
squares  estimate  of  the  constants,  then  the  MATEQ  and  VECEQ 
routines  are  used. 

The  merged  least-squares  calculation  is  based  upon: 

y  =  X3M  +  e  (130) 


where  the  known  values  obtained  from  the  previous  least- 
squares  fits  of  the  experimental  data  are  the  y  and  X  matrices 
and 


y 


Te 

*10 

*2  0 

tl 

*10 
Y2"0 
Te 
*10 
*2  0 
*i"o 
*2'  0 


(131) 


etc. 

and  X  is  the  XM  matrix  as  defined  in  the  input  data  section. 

It  relates  the  redundant  values  of  y  to  the  corresponding 
M  M 

members  of  8  (Ref  3) .  8  is  the  best  estimate  of  the 


constants  obtained  from  the  formula 


(132) 


8m  =  (XT0I"1X)"1XT  9  "1  y 


where  01  is  of  the  form 


01 


0i  0  0 

0  0*0 

0  0  03 


(133) 


MATEQ  ( THETx ,  THETAI ,  N ,  N ,  MM ,  MM  ,  X ,  X ) 

This  routine  inserts  the  variance-covariance  matrices, 
the  THETx' s  from  each  least-squares  fit,  into  the  matrix  THETAI. 
THETx (0 :N,0 :N)  :  As  previously  defined. 

THETAI (0 : MM, 0 : MM)  =  I  :  As  previously  defined. 

The  last  two  arguments  for  MATEQ,  "x,x",  determine 
where  the  smaller  matrices  are  inserted  into  THETAI.  The 
user  must  input  these  values  (as  integers) .  For  the  first 
group  of  data,  "x,x"  should  be  "0,0".  If  the  number  of  con¬ 
stants  determined  in  each  of  the  separate  least-squares  fits 
is  "N+l",  then  "x,x"  for  the  second  THETx  inserted  into 
THETAI  is  "2* (N+l) ,2* (N+l) "j  third,  " 3* (N+l) , 3* (N+l) " ,  etc. 

The  end  result  is  the  placement  of  the  THETx  matrices  into 
THETAI  as  depicted  by  Eq  (133) . 

CALL  VECEQ (BETx, YM,N,MM,x) 

VECEQ  performs  a  similar  insertion  of  the  constants 
BETx  obtained  in  the  separate  least-squares  fits  into  the 
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column  matrix  (vector)  YM  (y  in  Eqs  (131)  and  (132)).  The 
dimensions  of  these  two  parameters  are  BETx(0:N),  and  YM(0:MM). 

The  "x"  value  is  again  an  integer  and  entered  by  the 
user.  It  corresponds  to  and  is  equal  to  the  value  used  in 
the  MATEQ  statement.  In  this  manner ,  the  estimated  constants 
and  their  variances  are  placed  within  the  THETAI  and  YM 
matrices  so  their  correspondence  is  retained  in  the  merging 
calculations. 

After  the  CALL  WAVNUM  through  VECEQ  statements  have 
been  executed  for  each  of  the  separate  groups  of  experimental 
data  and  the  YM  and  THETAI  matrices  are  loaded,  the  merging 
of  the  spectroscopic  constants  can  be  carried  out.  To 
accomplish  this,  the  user  must  have  constructed  the  XM  matrix 
as  previously  described.  Then  the  following  statements  will 
accomplish  the  merging: 

IPV  =  0 
CALL  MAT IN V 
CALL  MERCN 

CALL  MATINV  (THETAI , MM, MM, IPV) 

This  routine  inverts  the  THETAI  matrix.  The  routine 
was  obtained  from  the  computer  program  by  C.  R.  Vidal  contained 
in  Appendix  B. 

CALL  MERCN ( XM , THETAI , YM , XTM , XTHM , XTHMX , XTXXTH , BET AM , XBM , YXBM , 
YXTH , THETAM , CVRCM , MM , NM) 
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This  routine  performs  the  calculations  outlined  in 
Eq  (132)  to  yield  a  set  of  merged  least-squared  constants. 
MERCN  estimates  by  the  following  formula,  the  variance  to 
be  obtained  using  the  merged  constants: 

a*  =  (y-XSM)T9l_1  (y-XSM)  / f  (134) 

m  m 

It  then  calculates  the  variance-covariance  matrix,  0M  ,  for 
the  merged  constants  according  to  the  following  formula: 

0M  =  (XT  01  -1X)"1  (135) 

Listed  next  are  the  arguments  of  MERCN  and  their 
correspondence  to  the  equations  presented  in  other  sections 
of  the  report. 

XM (0 :MM, 0 :MM)  =  X  :  In  Eqs  (130),  (132),  (134),  and 

(135). 

THETAI ( 0 : MM , 0 : MM)  =  01:  Eqs  (133),  (134),  and  (135). 

YM(0 :MM)  =  y  :  Eqs  (130),  (131),  (132),  and 

(134)  . 

XTM (0 :NM, 0 :MM)  =  XT  :  Eqs  (132)  and  (135). 

XTHM(0 :NM,0 :MM)  =  XT0I  :  Eqs  (132)  and  (135). 

XTHMX  ( 0  :  NM ,  0 :  NM)  =  first  (XT0I  "1X)  then  (XT0l-1X)-1  5 
Eqs  (132)  and  (135). 

XTXXTH (0 :NM, 0  :MM)  =  (XT0l"1X)“1  XT0I_1  :  Eq  (132). 

BETAM (0 :NM)  -  SM  :  Eqs  (130),  (132),  and  (134). 
XBM (0 : MM)  ■  X0M  :  Eq  (134). 

YXBM(0 :MM)  =  y  -  XSM  :  Eq  (134). 


YXTH  (0  :MM)  ■  (y  -  XSM)T0l"1  :  Eq  (134). 

THETAM(0:NM,0:NM)  »  a2  (XT0l “1X) _1  :  Eq  (134). 

This  is  the  variance-covariance  matrix  for  the  merged 
constants. 

CVRCM (0 :NM, 0 :NM) :  CVRCM  is  the  matrix  containing 
the  covariances,  standard  errors,  and  the  correlation  coeffi¬ 
cients  of  the  merged  constants  with  the  structure  the  same  as 
described  for  the  separate  least-squares  fits. 

Calculations  are  performed  in  the  subroutines  CONST 
and  MERCN  using  a  group  of  matrix  and  vector  manipulation 
routines  (Ref  13) . 

The  output  of  the  program  consists  of  the  following 
for  each  separate  set  of  data. 

1.  A  listing  of  the  experimental  input  values  v  , 
v'  and  v"  with  the  calculated  value  XS  . 

2.  The  variance  of  the  fit. 

3.  The  complete  variance-covariance  matrix. 

4.  The  matrix  containing  the  covariances,  standard 
errors  and  correlation  coefficients. 

5.  The  constants  for  the  upper  and  lower  levels. 

For  the  merged  data,  the  merged  constants,  the  variance 
of  the  fit  and  variance,  covariance,  standard  errors,  and 
correlation  coefficients  of  the  merged  constants  are  printed. 
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C  CALCULATION  3F  CCf.;ST A'.TS  FG®  SNyDEPS  OA'A 

CALL  «AVMJMCA:.U#,MA» 

CALL  CCMT  CAMJA.OVAl.QVAZ.ABETA,  THETA,  X  A,  XT  A  ,  XTXA  ,  XTXXT  A  , 

♦  XBA«A7jUXBA,CV°CA,MA,L) 

CALL  MAT EOT  THETA, THE* A I,", 5, MM, HP  ,0,1  » 

CALL  VECEOTAI»ETA,YM»N»f*M,(il 
C  C ALOL ATI v  1.  CF  C07.iTA*.T5  FTP  XURYLOS  OATA 

CALL  COMTCAVUC.QVCl  ,0VC2  ,AHITC,THE!C,XC.XTC»XTXC»XTXXTC, 

♦  »BC,ANUXHC,C  7PCC  ,  MC  » 7. 1 

CALL  MAT*  UC  ?  METC  «  THE T  A I  ,*. ,  f,'«  MM,  M.'T  ,5, 5  > 

CALL  VECtOTAMETC,YM,N,MM,‘ » 

:»*s. 

CALL  MAT  iNVCrHCTAI,*-M,PM,IPV> 

CALL  MFhC7.TxM,TMCTAI ,YM,»TM,XTMM,XYhMX,XTXXTH, 
♦BE’AM,XBM,TXBB,YXTM,THETAM,CVACM,MM,NM» 

E’.O 


A- 16 


1 


'  UBn  i  UT  1ml  mA’;«W<A, 


C 

Mtfc.-Ei.ee:  .'Hi»i*.ro  F‘c**  p'og-am  p»epa*ed  at  c.r.  vidal 

3 

C 

::.wt._ic\ 

% 

c 

tpv.eo.i:  ifa^cm  fo?  t>:vcT.  ;pv.nc.i:  sfapcm  ro-  pivo 

c 

IMPLICIT  OCUMlF  “Otcxilf*.  IA-M.j-?) 

3 

e;pc  .sic?,  ip:  «oT(j:63)t:>.oEk^<::63i(;noc)(C(o  :*3> 

7 

uiPl.-.ClOw 

* 

c 

9 

• 

1  C 

PO  2Z  Jr.:  ,f. 

1  1 

2. 

:pivuT<ji  s  ' 

12 

DC  5C.C  I  =  j.i. 

1  1 

IF  CPV.M.ll  GC  TO  4C 

14 

CL“  =  I 

1« 

G  S  *  G  2ot 

16 

C 

1  7 

4: 

AMAX=0.J 

1R 

0*7  1 1  5  J  -  0  • 

1 

:f  < ipiuct (ji.eq.i »  go  tc  1:5 

20 

c 

FOR  U’iST  MMf TR I C  “A  TR I X  :  A  (  I  .  J»  . \E  .A  (  J , ;  I 

2  1 

0:  j:o  k  =  9«*. 

22 

c 

FOR  CYM-ETRIC  MATRIX:  A  C  I  •  J  >  .  E  0  .  A  <J  ,  I  > 

23 

c 

0*~ 

24 

IF  <IP!VCT<K).e0.1)  GO  TC  1C? 

25 

IF  <AH£(AMAXi.GE.AB:(A(J<K>» 1  GC  TC  100 

26 

IROU-J 

27 

ICL-=K 

2 

AMA«=A<J.K> 

2  ; 

ICO 

CCfcTI'iUE 

30 

1^5 

CCK' l \JL 

31 

IPI  VCTU  CLMI- IP!  WOT  <  !CLN)  ♦  1 

32 

I'.OtXPtI):  It-CU 

3  ! 

IF.OtXCIl  1=  ICLM 

34 

C 

3-j 

IF  <IRCW.EO.ICLM>  50  TC  2fD 

3b 

• 

37 

oc  2C3  L=0.‘ 

3- 

*  WAP  -  A ( 'ROW.Ll 

3' 

A<IrCW«L>=A<ICLM,L> 

4  ? 

:u 

A<1CIH«L>  =  OUAP 

4  1 

• 

42 

• 

4  3 

• 

4  4 

• 

4? 

• 

4  6 

2  C 

•3IV'.r  -  ACICLMf!  CLM  > 

4  7 

•F  < \.GT .1 9  >  GC  T  0  330 

4‘ 

• 

*  ♦ 

C 

50 

3  <0 

A< ICL“,ICL5»  =  l.J 

51 

U  *•  5:0  L  =  -  . 

52 

3-C 

A< ICLM.L  »  =  A<  : CLM.l >  FF I WCT 

5  3 

• 

54 

• 

55 

• 

A- 17 


f  j  m  4r  '<» 


1 


so 

5  7 


5- 

46 

41 


C  . PEOLCE  VOT  »CU5 

3  0  00  *00  LI  =  0  <N 

!F  (LI.EO.ICLMI  00  K  E50 
‘  s  AlLl.ICLM 
MUiiaK)  =  0.' 

DC  450  L-  0  *  N 

4*G  *(L1,L»  =  A  (  L 1  *  L  1  -  AIIClM.LI*1 


6  O 
6  1 
6  ■ 
6  : 

7  C 
T 1 
7? 

73 

74 

75 

76 

77 
7  e 
7* 
'■  u 
"1 


5t0  COfcTIMJC 

IF  CPV.EO.ll  FETUFV 

C  . .....:*'£:»CHAN6E  C0LU"NS 

00  71C  1=  C ,N 

L  =  *.-I 

I  ft  GW  s  ir.OEXPIL) 

I  CL  H  s  Ii.OCXCILI 
IF  (IRGU.EO.ICLM)  CC  TO  710 
00  70S  K  =  U  ,« 

3MAP=A(K«1ACU> 

* 

a<k,;row»  =  A ( K  *  1  CL  M ) 

7;s  A(K,:CLMI  =  iiWAP 
"MO  CCMINUE 
lETokN 
CI.O 


•rUB-«CUT:  f.e  MATML'  7*/7«  Tr»T  =  C  .<•  JL*.D  =  A/  S/  H/-D,-D'  FIN  5.1*55A 

05=-L:sG/-c»tAof»5-c'"M;\/-F:xfC.ci=  u$e°/-f: xed.db=  tb/  sh/  sl/  ep/-io/  apoz-ST.PL 

FT/.5.0B*  JO 30. 50 


1 


( 

; 


I  c 

II 
1? 
13 
1  % 
15 
1  6 

1  7 
1" 
1  •• 

2  C 
21 
22 
27 
2« 
2  c 
2- 

2  7 
2- 
2- 

30 

31 

3  2 
3  3 
3-* 
31 
3/ 
3  7 

3  • 

3- 

*0 
A  1 
A  2 
A  3 
A* 
A3 
A  b 
A  » 
A  - 
A  ? 
50 
M 

52 

53 
5A 

55 


C  THE  FDLLtWl.G  F'OTINES  P  E  R  F  *  F  B  STANDARD  “AT  SIX  OPERATION' 

C  AND  VCCfu*  CPEKA TI 0E? 


lUOAr.urif.E  vatpl r<  a «u«t  ,r. .=  > 

.“PLICI*  OCUI'lE  PRCCISICA  (A-rt,(J-2» 

ui  «r  ac.  :k, :\>.o(C  :n«c  :p >,t (0 : p  ,o:p  :k > 

ci  fe’.si  it.  oi '  :pi  ,o  :?2  > 

0! fe /.si 2'.  *«  :/.». vc: N».7<c:*o.«<o:Ntc:H)»2icn:»!» 

INTEGER  i.j.*,n,c*p 
INTEGER  P 1  *  '  2 

• 

DC  1  1 3 o  ,  F- 
00  1  J=C 

1  *<I,J)=CO*0 

DC  2  I=C‘,B 
00  2  J=C  «r 
DO  2  K=C»N 

• 

:  A(UM‘UiK)Ji  ♦  Mi.ji 

FETURf. 

• 

I  NTRY  VEC  CUB (X,Y,2l«N) 

C  TmIC  ROUTINE  SUBTRACTS  TUO  VECTORS 

DO  ?  l=0,t 

21 < :  >  =  x< ;  i-r <: » 

continue 

RETURN 

« 

ENTRY  WAT  VEC  (A,x,7,M,/.» 

•  this  routine  hultiplies  a  patpix  ti-es  a  vector  yeilding  a  vector 

00  5  1=0 
1  / < I >  =0  0*0 

DO  6  I=0,M 
00  £  J  =  C,N 

6  2  (  I  >  =A  (X  ,J>*XIJ>  *211) 

«ETU=N 

• 

LNT°V  SCA VEC  (S«X,T,N) 

•  THIS  ROUTINE  PULTIPLIES  A  SCALAR  TJHCS  A  VECTCR  TO  YEIIO  A  VECTOR* 
O'  7  I=G,-. 

7  Y(I|:3>«C) 
c  E  T URN 

• 

ENTRY  SCAFAT  C,A,B,“,*> 

•  rnoTINf  *U«.r;p:es  A  SCALAR  TIHES  A  PATRIX 

03  H  1=0  ,H 
DO  *1  =  0,' 
tui  *J»=:  •  a<;  ,  j» 

=  €  TUr-N 

l«.t»y  vrcvec  tx,r,s,N» 

.  this  ROUTINE  FULTIPLIEi  TmC  VECTORS  TOGETHER  YEILDING  A  SCALAR 

:•=:  o*c 
dl  /  r=c,-, 


A-19 


SUBROUTINE  FAT»l 


74/74 


•P'=C|JCUNU:  A/  -f  M/-0.-0S 


Ft,s  5.1  4*6  4 


5* 

57 

5  - 

5'- 

6C 

61 

6: 

63 

64 

65 

66 
67 

6  a 
bO 
7; 

71 

72 

7  < 

74 

75 

76 

77 
7r 
7C 
’0 
SI 


Si  s  ♦  x u i • t  < ; » 

r  i  Ti.tr, 


t-STRY  VECKAT  (2,A,X,M,r,) 

C  'HIS  ROOT  IKE  MULTIPLIES  A  VECTOR  TIMES  A  MAT® IX  TO  triLD  A  VECTOR 

no  to  u=c i. 

*lJ»s  CO*C 

nc  it  k=c,m 

1  xiUlrxiJ)  *  ?IK>»A(K.J> 

f  ETUF  14 

• 

ENTRY  TR.'.SP f  («tViH,U 
C  THIS  routine  TRAPCSES  a  “ATRIX 

DO  14  I  =  C,M 

oo  i  4  jsr. 

14  VI J,. »=AII ,J1 

‘ETUH7. 


E  NT  R  7  CVKCOP IA.T.M.L.P1 

C  THIS  ROUTINE  CREATES  A  MATRIX  FCR  PRINT  OUT  CP 

C  STANDARD  *PRCR$,  COVARIANCES.  AND  CORRELATION  COEFFICIENTS  OF 

C  THE  *CU'.HAN  COtFF  ICENTS*. 


32 
3  I 
>’  4 
H  5 
“  6 
=  7 
8- 
3« 
90 
9  1 
52 
9  t 
R  4 
95 
~  6 
i  7 
3R. 
95 


00  15  I  =  C  ,* 

00  15  „=C-,M 
IF  (i.LT.JI  '  HEN 
(i.j*=ai:,j) 
f  LSE  IF  II.E0.J1  THEN 
'<1.J1=0S0R' (Alt ,J»» 

ELSE  IF  II.G'.J)  THH. 

*1  I . J)  =  A(I .JIEIOSORTIAII ,1 n»DSQD'(A( J,J>>  > 

E NO  IF 

CONTINUE 

RETUPfl 

ENTRY  UAVNUMIX.:,  > 

this  routine  converts  uavelfmcth:  in  angstroms  tc 
WAVE  NUMB-  RSI  INVERSE  CENTIMETERS). 

WITH  CORRECTION  FCR  I‘DEX  OF  REFACTION  0®  At 0 


^efc^ence: 

00  16  I=C 
XL  s  XII  )/lt. 


.T.  BIRGE.  PHYSICAL  REVIEW,  VCL.  60,  766-73 5  U94l  > . 


:do 


io : 

»R*F  =  272.5  It'S  ♦  1.5453DG/UL** 

10  1 

*i-EF  =  1U0  ♦  X«r.F/lD6 

102 

16 

x(I>  =  1 05/1 WL • XF  EF  ) 

103 

RETURN 

104 

ENTRY  MATEO! A,C,«,N,P1  ,P2«K1 ,K? ) 

135 

C 

THIS  *  CU1  »  NE  TRANE FEBS  MATPIX 

106 

C 

E  TA°T  ING  AT  POSITION  X(K1,K2> 

10  7 

Mi=Kl *M 

n  - 

i-2  SM?*N 

10’ 

05  17  I  =  M,M? 

no 

C j  l  JiK., .2 

in 

I  2  =  I -Ml 

112 

JZ= J-K2 

11  3 

0(I,J)iAC2,J2> 

11  4 

1- 

CvNTINUC 

115 

1  7 

CONTINUE 

11‘ 

■ FTUtN 

n  7 

• 

11  > 

• 

115 

ENTRY  VE CE 0 C X , 2 ,N  ,M  ,P 1  ) 

12  C 

C 

THIS  ROUTINE  TRANSFER'  MATRIX 

121 

c 

START ING  AT  POSITION  7IP1) 

12? 

..2=N*P1 

121 

DC  1*  I  RPl  ,'-2 

124 

:  7 = i  -p  i 

12r 

71 1 ) iX (I  2) 

126 

It 

CONTINUE 

127 

*CTUTf: 

12' 

L  NO 

♦  0.0216? DO /ML* • AOS 


A  I M ,N 1  INTO  MATRIX  U 


SUBROUTINE  Cv‘.r  74//*  .,P  T  =  0  .r  OU\P  =  A  /  5/  M/-U.-0'  FT»:  5.1*4NA 

00=-LCNG/-wT  .ALG--C  .KM''N/-FI  *E0.C5  =  USE°/-FIXEO»DB=  TB/  SB/  CL/  E°/-IO/  PNO/-ST.I 
FTN5.0H.  JOCC50 


1 

2 

3 


£ 

7 


10 

11 

12 

II 

14 

15 
1  5 

1  7 
1  <* 
1  =• 
20 
21 
2? 
23 

2  •• 
2' 
2* 
27 
2  ** 
2° 
10 
31 
3  2 

33 

34 
3* 
31 
37 
3- 

3  r 
4? 

41 

42 

43 

44 

4  * 

45 
47 
4  • 
4' 

41 

52 

53 

54 

55 


:un:<:uTi*.£  c.  not i anu.qvi ,ovr .art a.theta.x.xt 

•  ,XTX  .XTXXT.  XH,  ATiUXB  .CVkC .M.N  I 

C  THIS  ROUTINES  PERFORMS  THE  ACTUAL  CALCULATION  OF  T ME 

C  "DUNHAM  milecular  const  ants« • 

‘•^LICIT  OClHLE  FRECICICN  ( A-H  »Q-Z  I 

n:  pension  a*.»< < c : *4 » ,ovi i-  :«*> .  ov’i a:  •»» 

c;  pension  be  ’  a < « : /.  > •  i met ae c : l «c : r, > 

oi pension  xt  (c  :n.c  :m> «xi:  :m,o im.xtxio  :n.c:n  ». xtxxt <c  sn.ojm) 
Oi  MC'.SIPN  X!lC  JIM)  .ANUXBICTMI  .CVRCCOIN'  «0S5  » 

UOLBir  PRECISION'  LI 

N2=N/2 

N3=N2«1 

C  THIS  CCCT.'C*.  CALCULATES  T ME  X  MATRIX  MIHCM  IS  MAOF  UP 

C  OF  THE  V’HSA.-ICl.AL  A  3.0/0°.  POT  AT  IGNAL  QUANTUM  NUMBER" 

C  MITH  •  V ♦  1  / 2 •  AI.O  •J*1J»1>°  RAI3E0  TO  PGWE*S  MAKING  UP 

C  THE  XlI.Jl  TERMS. 

• 

O'  2CC1  I  =  O.N 
PT  2JGG  L  =  0.N2 
LI  ~  L 

-2  =  L  ♦  '.2  ♦  1 
M1.L)=(OV1(!)«C.50C>«*L1 
2  Ctl  CON  T 1 NUC 

00  2002  L-N3 «N 
Ll=L-f.2 

XII «l I QV2 I I>*C»50G>»*Ll 
2' 32  CONTINUE 
2101  CONTINUE 

C  CALCULAT!. N  OF  CONSTANTS 

CALL  TRf,SFZ«X.XT.M,N> 

CALL  MAT  MI.T  I  XT  tX  fXTX  . N .M . N  1 

IPViO 

CALL  MAT 1NVI XTX.N.N.IPVI 

CALL  MATMLTIXTXiXT.XTXXt,h,n,m» 

CALL  MATVECIXTXXT ■ ANU  «HF ’  A  *S  »  N  > 

C  CALCULATION  Of  VARIANCE  of  energy  level,  of  is  oegpees 

c  of  ffelo:''. 

OF  =  1  . 0  0*  ■)  /OHL  E I M-  r.  » 

CALL  MATVCCIX.HETA.XK.M.M 
CALL  VECSU8I ANU, XB. ANUXB.Ml 

PRINT*. •  0V1  QV2  OBSERVED  CALCULATED* 

PO  S?6  !=0.4 

PR  IW  53-  <QVi<I>.QV2(I>,ANU(!).XS<I> 

'■'?  FCPTAT  I2X.F3.0.2X.F3.0.2X. FIS. T.2X.F15. 7) 

SVfc  CONTINUE 

CALL  VECVECIANLxH.ANUXH.ETEMP.M.Ml 
VARIN2SSTEMP.0F 

PAIN’.,*  •.•  VARIANCE  •• VALIN? 

F4I  r.  T«.«  •••VARIANCE  COVARIANCE  MATRIX  ELEMfN-’S* 

CALL  iCA*AT.  XAKIN  2.  XT X. THETA  .N.fll 

no  I?: 

00  123  JS0.4 

pr:n*.,«  ••i.j.thetaii.j) 

123  CONTINUE 
C 


A- 21 


iuhrout: 

•  L  CiM 

76/7*  i3":;  #i>OllMD  =  A/  c/  H/-0#-D$  FTN  5.1*556 

ss 

C 

'-!l5  PLACE.,  ThE  C2VAIANCES  ABOVE  fMC  01  •C'" nal 

57 

f 

OF  THt  HATRiX  *CW»C.»  IT  PLACES  THE  STANDARD  ERPER' 

5*' 

C 

F.'R  *ME  C.NC'AMS  CM  THE  01 AbONAL •  IT$  CALCULATES  'HE 

5? 

c 

COR  HE  LATUM  COEFFICIEMS  ANO  PLACES  THEN  BELOu  THE  DIAGONAL 

61 

CALL  CVRCCRt  »HFTA#CVRC,f  . *,.»#> 

6 1 

PRINT  •STA.'.OA‘D  CnPCR(!=J»»  COR  RELC  3EF  C I  >J »  ,C0  VARIANCE  C I  <JI  • 

6  2 

00  615  ;  =  0i’. 

t  J 

00  616 

6* 

616 

PRIM'*#*  • » I • J» C Vr C C I « J) 

65 

615 

COM  INUE 

6  6 

C 

P-IM  CUT  THt  CCMSIAf.’S  F0°  THE  TWO  ELECTRONIC  STATE* 

61 

P-I*. '  «#•!• 

6 

PCIN'*,«  »,»w:BRATIC\AL  COM3  TAMS  FCR  UPPER  LEV^L* 

6  3 

03  2:10  i=n,»2 

70 

2C15 

PR  IN  r • # •  *,:#BETA<II 

T  1 

PRIM*  .#•_• 

72 

PR  IN  ’  •  #•  •  .'VIBRA'IONAL  CREAMS  for  lower  state* 

73 

u:  ;i2o 

7* 

2  C  2C 

Pr 1 M  «  ,»  < ,1 #BE T  All) 

75 

PRIM'  *»*1* 

76 

tr.O 

SUHBQ'JT!  f.t  M.l-CN  74/74  ; P T=c ,» CUNOr  4/  3/  HZ-Oi-O:  f’.V  5.1*564  *1 

00=-L3NG/-CT  «AS6:-C0MMJ,-./-Fi XED,CS=  USER /-F  I  XEO.OB::  TH/  SB/  SL/  fR/-:0/  =>MO/-S*,Plt 


FTN5 ,08. 


:ooc  ‘0 


1 

2 

1 

4 

5 

6 
7 
fe 
5 

10 

11 

12 

15 

14 

15 

16 

1  7 
lr 
1« 
20 
21 
22 

23 

24 

25 

26 
27 

2  a 
2*i 

JO 

31 

32 

33 

34 

35 

36 

37 
3*> 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4  • 
40 


lUBRCUTlNE  M*-«C*.  (  XM.ThETAI  ,y",  XTM,XTH“.XTMMX  .XTXXTM,  ' 

♦BET4M,x8M,YXHM,YXTrt,THETAM,CV»CM,M,N  I 
C  THIS  ROUHf.E  MCFGES  RESULTS  T3  OBTAIN  A  BEST  ESTIMATE 

C  OF  THE  SR!  ClOti*  AFHIC  CONSTANTS 

IMPLICIT  DCUHLC  PRECISICN  IA-h,Q-7» 

OI  ME'. SION  XMCd:M,0:\»,TMETAI  t3:M,0:M»,YMC0:M> 

oi**E'  si  o',  xt  mcotn  .i:R».xrHR(c:N,c  :m»,xthmx<c  :n,o  :n)  •  xtxxtmio 
♦ ) 

01  MENS  10.4  Bl TAMIL  IN)  ,XBN(3  TM»  .YXTHIC  tM>  ,  T  HET  AMCC  T  N  ,0  T  Nl 
D! MET  SION  YXhKCt  :M) 

DIMENSION  cvpch<o:n.o:m 

C  CALCULATE  DEGREES  Of  FREEDOM  AND  DIVIDE  INTO  1 

OF  =  1  DO  /  (  M-l  ) 

C  CALCULATE  ME  4  GEO  CONSTANTS 

CALL  TRNSF2<XM,XTM,M,N> 

CALL  MATMLTIXTM.THETAI ,XTMM,N,M.M1 
CALL  MAT  MLT  <  XT  MM  •  XM , X  THMX  ,N  , M « ’. ) 

IPV  =  C 

CALL  HAT INVC X THMX ,N ,N .1 P V » 

CALL  MATMLT<xTHMX,XTHM,XTXXTH,N.N,N> 

CALL  HATVECt  XTXXTH,YM,B£TAm«N»"> 
pR I  N  ~*  ,  •  *.*  MERGED  CONSTANTS* 

00  2530  IiO.N 

2-:QC  PRINT.,*  *,I,Hc'AH(!> 

C  CALCULATE  ESTIMATED  VARIANCE  OF  MERGED  FIT 

CALL  MATVECEXM *HE  TAM*X8M»M,NI 
CALL  VECSUH<YM,XBM,YXRM,M> 

CALL  VECMAT<YXBM,THETA1,YXTH,M,M> 

CALL  VECVECI YXTH, YXBM , TE *P .M > 

VARM=OF«-EMF 

PRINT.,*  », ’ESTIMATED  VARIANCE  OF  MERGED  FIT* 

PRINT., •  *,*  * , V  Ah  M 

C  CALCULATE  VAPIANCE-CC VARIANCE  MATRIX 

CALL  SCAMATt V ARM, XT HMX ,T MET AM ,S , N  > 

PRINT.,*  •••VARIANCE-COVARIANCE  MATRIX* 

00  2510  1=0*’. 

DO  2620  JsOtf. 

252C  PRINT*,*  *,!,J, TMETAMCI, J» 

2510  CONTINUE 

C  CALCULATE  MATRIX  CONTAINING  STANDARD  ERRORS, COVART  ANC  FS , 

C  A'.  0  C  CR  PEL  ATI  CN  CCEFFI C I E  N'T  S  . 

PRINT.,*  • , *ST  AND  APD  EP« OR C I  =  J) •(  ?V AR I ANCt C I <J » .CCRRELA *  I  ON  • 
PRINT*,*  »,»CCEFFICIENTSII>J>* 

CALL  C VRCOR ( T  MET  AM , C VRCM.N  *N  *N  7 
DO  2530  I  =  C  » 

00  2540  J=0,N 

25  4(  PRINT*, •  *,;,J,CVRCM(I,J> 

2530  CONTINUE 
C  NO 


A-  23 


CALCULATED 

17*87.  5335298 

146o2.C4l°3£ 1 
141 75.5752521 
13367. 65o326* 
16072. 85232C? 
1528  7.3239519 
1311A. 52127*3 
124 J7.-6Q3Ar6 
11171. 2336C55 


V  A**  :a  \C£  2  7.  1 5  1-  *  31  47332  65?E0AMAfc-6 

V  AR  I  A‘»C  C  C:vA«;A\Cr  “AT  "  I  X  £Le“r'r.T3 
C  'j  10f>.9*37/T>A7LE  *1 S‘  !iU. 

0  1  -2*  .323J  352  7S3C  **  19K36537**  .6 
3  2  1  5543083271301  b ‘  if-’ 21 41  61  I 

0  3  28. 72831467  26222*53616:5  -4 
0  4  -3.  ;39422‘}*-s9fci;-ll'£‘-4;JE'=l4672- 
1  9  -24 .6233052  753.. -.61  }r.i6->37  4C4 
1  1  4.555011«42:.412r  1 9 7  -  S3  5 4 70 >2 
1  2  -.693722631  7* 51 e 3 1 5 1 564637 3 55 
1  3  -5.  23670a77-b3C6143-34o4  753739 

1  4  «59‘334227'4-843HC529-.49535  251 

2  0  1.465430632713LtSE3-.s2'.4i61b 
2  1  -.69372295b  7**51b31  51594637C5S 
2  2  .057672348,  5225fco07  .'H85.»34- 11 
2  3  .  31231  J21661624‘-A45268560b65 

2  4  -.0  4233  19HL  4fi*5r- 1644  76142164146 

3  0  29.  728  31  467 20  22  265  361  505°b  5 
3  1  -5. 3397JR77-530614354847S3744 
3  2  .39231921 661 6  24  **6  4  5  298590  70  1 

3  3  13.91036907  1966 38 96634347118 

3  4  -1.  128799571316?7b/;£276S6944(> 

4  0  -3. 3 39422C66966 1 05 9 4J5b 1467 2 7 
4  1  .5993422TRR643fiCS2939453525P 

4  2  -.3  42301980439616 44  76142194 155 
4  3  -1. 128749 57 13 16 £7943  2766694  4  9 
4  4  .122137673221571353-67305532 
STANDAOO  ERROR  1 1  =  J I »  COP  9  €  LC  CEF  CJ  >  J1 .  C  3  WAR  1  Af.C  E  <  !  <  J> 
0  0  10.34136250524667633521  1765 
0  1  -24. 82300 52  7530 461998653764 06 
0  2  1.35548063271  30  1.953  68  29  *lol  7 
0  3  29. 728) 1 4678 2022 2£ 5 36 1 5059b 4 
0  4  -3.0394220699661059*656146726 
1  0  -.915910954530275794487410141 
1  1  2.9419401 46 38 123477429046276 
1  2  -. 69372290b 795163151594b J7C59 
1  3  -5.  339  79  8  779  530  61  4  3  54R  4  7537  39 
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Appendix  B 


RKR-IPA  Program 

The  following  section  contains  the  RKR-IPA  program 
as  provided  by  C.  R.  Vidal. 

Presented  first  is  a  written  description  of  the  pro¬ 
gram  and  instructions  on  the  use  of  the  program.  Next,  the 
original  introductory  comments  by  C.  R.  Vidal  on  the  use  of 
the  program  are  presented. 

Then  a  complete  listing  of  the  program  and  a  sample 
output  is  presented. 
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Program  Main  (RKR-IPA  Control) 


Presented  in  the  following  section  is  a  discussion 
of  the  RKR-IPA  program  provided  by  C.  R.  Vidal  (Ref  41). 

The  program  MAIN  contains  a  routine  to  perform  RKR  calcula¬ 
tions  and  a  routine  to  perform  IPA  calculations  starting  with 
the  potential  obtained  from  the  RKR  program.  The  program 
was  originally  written  in  Fortran  IV  to  run  on  a  CRAY-1 
computer  at  the  Max-Planck  Institut  fur  Extraterrestrische 
Physik,  Garching,  Germany.  It  has  been  modified  slightly 
to  run  on  the  CDC  6600  computer  at  the  Air  Force  Institute 
of  Technology,  Wright-Patterson  AFB,  Ohio.  The  program,  as 
presented  in  this  appendix,  is  written  in  Fortran  V.  Comments 
provided  by  Vidal  at  the  front  of  his  program  are  included. 
PUNCH  statements  included  by  Vidal  have  been  changed  to 
comment  cards.  Many  of  the  formatting  statements  have  been 
changed  from  Hollerith  editing  to  apostrophe  editing  formats. 

Due  to  memory  size  constraints,  370  K  octal,  several 
arrays  were  reduced  in  size.  Arrays  now  sized  (2403)  were 
originally  sized  (3601)  in  Vidal's  program.  Arrays  sized 
(11,2403)  were  originally  (24,3601)  in  size. 

As  sized,  the  program  required  a  field  length  of 
211,600  octal  to  run.  A  core  memory  size  of  360  K  was  used. 
Maximum  run  times  used  for  the  RKR  routine  were  less  than  20 
seconds.  This  involved  the  calculation  of  turning  points 
(RMIN,  RMAX)  for  128  different  energy  levels. 
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Run  time  for  the  combined  RKR-IPA  routine  ranged 
from  160  seconds  for  the  calculation  of  parameters  covering 
the  following  ranges: 

v,  vibrational  quantum  energy  levels;  v  =  0  to  69 
J,  rotational  quantum  energy  levels;  J  =  1 
Iterations  of  IPA  routine;  n  =  4 
Array  sizes;  1001  of  2403  maximum 
to  a  maximum  run  time  of  1150  seconds  for: 
v  =  0  to  70 

J  =  2,6,10,14,17,20,21,23,28,30 
n  =  4 

Array  sizes;  1001  of  2403  maximum 
One  change  has  been  made  in  the  logic  of  Vidal's 
program.  In  the  function  subroutine  FLNC,  line  37,  the  third 
line  after  statement  label  70,  was  changed  from: 

IF  (XX.GT.RAA)  RETURN 
to 

IF  (KK.EQ.l)  RETURN 

The  consequences  of  and  reasons  for  suggesting  this 
change  are  presented  in  the  discussion  of  FUNC. 

The  discussion  of  Vidal^s  program  is  divided  into  two 
subsections:  first,  the  discussion  of  the  RKR  portions  of 

his  program  and,  then,  a  discussion  of  the  IPA  portion. 

Within  each  section,  the  discussion  is  started  with  the  inputs 
required  of  the  user.  Then  the  logic  of  the  program  is 
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traced  with  explanations  of  the  calculations  and  the  sub¬ 
routines  used. 

Numerical  RKR  Calculations 

This  section  starts  with  the  inputs  required  to  per¬ 
form  the  RKR  calculations.  The  card  number,  the  name  of  the 
input  and  the  format  of  the  input  is  given.  The  word  CARD 
is  used  if  only  one  card  is  required.  CARDSET  is  used  if 
more  than  one  card  (line  of  data)  may  be  required. 

CARD  1 

NAME:  ITEST 

FORMAT:  Integer. 

ITEST  should  be  placed  in  column  1.  If 
ITEST = 0,  the  program  stops.  If  ITEST  =  1, 
the  program  is  executed. 

CARD  2  and  3 

NAME :  IHEAD 

FORMAT:  Lines  1-72  of  these  two  cards. 

These  two  cards  contain  the  title  to  be 
printed  at  the  top  of  the  output.  Rele¬ 
vant  information  that  is  suggested  for  the 
title  includes  the  name  of  the  molecule 
with  the  isotopes  involved,  the  electronic 
state  for  which  the  calculations  is  per¬ 
formed,  date,  etc. 
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CARD  4 

NAME:  I IMS,  ZMASI ,  ZMAS2,  ICODE 

FORMAT:  14 , 2D16 . 9 , 32X,A4 

I IMS  must  be  1  if  the  masses  of  the  atoms 
are  expressed  in  AMU's  based  upon  the 
Carbon-12  scale  and  2  if  they  are  based 
upon  the  Oxygen-16  scale.  ZMASI  and  ZMAS2 
are  the  masses  of  the  two  atoms  expressed 
in  atomic  mass  units  (AMU) .  The  reduced 
mass  of  the  two  atoms  may  be  entered  in 
place  of  ZMASI.  If  the  reduced  mass  is 
used,  ZMAS2  is  left  blank. 

ICODE  is  the  alphanumeric  code  used  to 
describe  the  electronic  state  under 
investigation. 


CARD  5 

NAME:  NDUN ,  JM(1),  JM(2) . . . JM(NDUN) 

FORMAT:  1415 

NDUN  and  JM  specify  the  number  of  Dunham 
coefficients  YDH  and  the  order  in  which 
they  will  be  read  into  the  program. 


CARDSET  6 


NAME:  YDH (1,1) ,  YDH (2 , 1 ) . . . YDH ( JM ( 2) , 1) 


YDH (1,2) ,  YDH (2, 2) . . .YDH(JM(2) ,2) 
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YDH (1,NDUN) ,  YDH (2 ,NDUN) . . . 

YDN ( JM (NDUN) , NDUN) 

FORMAT:  4D18.9 

These  cards  contain  the  Dunham  coefficients 
required  as  input  for  the  RKR  routine.  The 
READ  statement  is  structured  so  that  JM(I) 
values  of  YDH(JM(I),I)  are  read  in  for 
each  value  of  I  with  I  ranging  from  1 
through  NDUN.  For  each  new  value  of  I, 
the  1  through  JM(I)  values  of  YDH  should  be 
started  on  a  new  card.  This  means  that 
the  JM(1)  coefficients  Y(l,n)  are  read 
in,  then  the  JM(2)  YDH  (2 , n)  coefficients, 
etc . 


CARD  7 

NAME:  DE,  TE 

FORMAT:  2D15.8 

DE  is  the  dissociation  energy  and  TE  is 

the  electronic  term  energy  of  the  electronic 

state.  Both  are  expressed  in  reciprocal 

centimeters.  DE  is  the  difference  between 

the  minimum  in  the  potential  of  the  electronic 

state  and  the  dissociation  energy.  TE  is 
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the  energy  separation  between  the  minimum 
of  the  potential  curve  and  the  minimum 
potential  on  the  ground  state  of  the  mole¬ 
cule.  If  the  ground  state  is  being 
investigated,  TE  is  omitted. 

CARD  8 

NAME:  VFIN,  VINC 

FORMAT:  2F6.2 

VFIN  is  the  largest  vibrational  quantum 
number,  v,  for  which  the  RKR  routine 
calculates  the  classical  turning  points 
r  minimum  (RMIN)  and  r  maximum  (RMAX) . 

The  turning  points  are  calculated  starting 
with  value  of  v  =  -0.25  and  for  each  value 
of  v  from  0  to  VFIN  in  increments  of 
VINC.  It  is  not  necessary  that  either 
VINC  or  VFIN  be  whole  numbers.  That  is, 
both  may  be  decimal  fractions.  The  quantity 
VFIN/VINC  must  not  exceed  398. 


CARD  9 

NAME:  I0PG 

FORMAT:  11 

I0PFG  is  the  Klein  action  integral.  "I" 
(see  Eqs  (32)  and  (81)),  print  switch. 
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All  iterations  are  printed  if  I0PFG=1. 

If  I0PFG=0,  these  values  are  not  printed. 


CARD  10 

NAME:  RLIM1,  RLIM2 ,  NEXT 

FORMAT:  2F6.2,I2 

FLIM1  and  FLIM2  are  the  inner  and  outer 
limits  of  r,  respectively  to  which  the 
RKR  curve  will  be  extended.  The  curves 
will  be  extended  by  fitting  formulas  to 
points  making  the  inner  and  outer  portions 
of  the  curves  plus  any  extra  radius- 
potential  energy  pairs  input  as  data  to 
guide  this  fit.  FLIM1  and  RLIM2  also 
determine  the  range  over  which  the  final 
IPA  curve  will  be  expressed.  RLIM1  and 
RLIM2  should  be  sized  to  contain  any 
inner  and  outer  radii  generated  by  the 
RKR  and  IPA  programs. 

NEXT  is  the  number  of  extra  data  points 
which  will  be  used  to  guide  the  extension 
of  the  curve.  NEXT  must  be  less  than  25 
and  may  be  0  if  no  extra  data  points  are 
to  be  added. 

These  data  points  must  be  obtained  in  one 
manner  or  another.  The  program  does  not 
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specify  how.  But  if  these  points  are 
available,  this  card  makes  provision  for 
entering  them  into  the  program. 

CARDSET  11 

NAME:  Rl (I) ,PEl (I) ,  where  I  =  1  to  NEXT 

FORMAT:  (4X , 1PD16 . 9 , 7X, D16 . 9 /) 

If  NEXT  =  0,  these  cards  are  omitted. 

R1(I)  and  PEI (I)  are  the  radius  and 
potential  energy  p^irs  which  will  be  used 
to  guide  the  extension  of  the  RKR  curve 
which  will  be  adjusted  by  the  IPA  program. 
Rl (I)  should  be  in  angstroms.  PEI (I) 
should  be  in  reciprocal  centimeters. 

These  NEXT  points,  along  with  a  given 
number  of  points  from  the  inner  and  outer 
ends  of  the  RKR  curve,  will  be  used  to 
obtain  a  fit  to  formulas  as  described 
below  to  extend  the  original  RKR  curve  to 
the  RLIMl  and  RLIM2  limits. 

CARD  12 

NAME:  KFIT(l) ,KFIT(2) ,KOUT(l) ,KOUT(2) , 

KOUT ( 3 ) , KOUT ( 4 ) 

FORMAT:  615 

» 

KFIT(l)  is  the  number  of  constants  (An) 
used  in  fitting  a  formula  to  the  inner 
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portion  of  the  RKR  curves.  The  formula 
is  of  the  form: 


KOUT(I),  as  shown  above,  is  the  power  to 
which  each  1/r  term  is  raised. 

KFIT ( 2 ) +4  of  the  outermost  turning  points 
of  the  original  RKR  potential  plus  any 
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outer  turning  points  included  in  CARDSET 
11  are  used  in  extending  the  curve  to 
RLIIM2. 

If  CARD  12  is  blank  the  default  values  for 
KFIT(l)  through  K0UT(4)  are  "2, 4, 0,6, 8, 
and  10"  respectively. 

CARD  13 

NAME:  IPNRKR, IPNIPA 

FORMAT:  212 

These  two  values  in  Vidal' s  original  program 
controlled  the  punching  of  an  output  deck 
for  the  RKR  and  IPA  programs.  As  the 
PUNCH  statements  have  been  changed  to 
comment  cards,  these  two  inputs  should  be 
0  until  the  program  in  the  appendix  is 
modified.  In  the  original  program,  if 
IPNRKR  and  IPNIPA  equaled  1,  the  card 
decks  were  punched. 

CARD  14 

NAME :  LTEST 

FORMAT:  II 

If  LTEST  =0,  the  IPA  routine  is  skipped 
and  the  program  proceeds  to  read  in  the 
next  set  of  data  starting  with  the  quantity 
ITEST.  See  CARD  1. 
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This  completes  the  input  required  to  run  the  RKR 
portion  of  the  program.  Input  required  for  the  IPA  portion 
of  the  program  will  be  presented  with  the  discussion  of  the 
IPA  calculations. 

The  following  section  discusses  the  functions  of 
each  of  the  major  routines  of  the  RKR  program  in  the  order 
which  they  are  used.  The  headings  used  are  the  titles  of  the 
subroutines.  Sections  of  the  program  which  have  a  physical 
significance  and  are  helpful  in  understanding  the  flow  of 
the  program  are  highlighted.  Numerical  techniques  which  per¬ 
form  the  RKR  calculations  are  discussed  in  more  detail  to 
aid  the  reader  in  understanding  the  technique.  Calculations 
which  are  straightforward  and  not  necessary  to  understanding 
the  program  are  not  described. 

The  line  numbers  in  parenthesis  refer  to  lines  in 
the  program  in  this  appendix.  In  this  development,  program 
symbols  corresponding  to  the  mathematical  symbols  defined  for 
the  RKR  calculation  are  given  immediately  following  the 
mathematical  symbols  to  which  they  correspond.  The  symbols 
are  placed  in  brackets. 

PROGRAM  MAIN 

PROGRAM  MAIN  acts  as  a  controller  directing  the  major 
objectives  of  the  whole  program,  the  calculation  of  an  RKR 
curve  and  its  adjustment  by  the  IPA  routine. 


MAIN  starts  by  insuring  that  mass  units  of  the  atoms 
are  expressed  in  terms  of  the  Carbon-12  system  making  conver¬ 
sions  as  directed  by  input  data  in  IIMS  (lines  12,23,24,28). 
The  reduced  mass,  ZMU,  is  calculated  in  AMU's  (line  27). 

The  Dunham  constants,  YDH,  as  specified  by  CARDSET 
6,  are  read  as  a  result  of  the  statement  CALL  YDHP11 
(line  30).  The  Dunham  constant  Yqi  is  assigned  to  "3E" 
the  normal  name  of  that  spectroscopic  constant  as  shown  in 
Table  I  (line  31) .  Then  using  BE,  the  internuclear  equili¬ 
brium  distance,  rg  ,  is  calculated  in  angstroms  according 
to  the  following  formula: 


FAC  _  l  h  Na  \  X  108 

re  (be)!5  4TCyBe  J 


(138) 


Then  Y0o  is  calculated  according  to  Eq  (6)  (lines  35  and 
36)  . 


SUBROUTINE  RKR 

This  routine  is  called  from  line  70  of  PROGRAM  MAIN. 

First  a  calculation  is  performed  to  determine  the 
number  of  G(v)  energy  levels  which  will  be  evaluated  in 
the  RKR  routine.  This  number  is  assigned  to  the  variable 
"M"  (lines  34-39) .  Then  values  of  the  vibrational  quantum 
number,  v  ,  for  the  G(v)  energy  levels  are  calculated 
(lines  44  and  45) .  In  the  program,  the  term  "TEMP"  corresponds 
to  "v"  and  the  term  "U"  to  G(V)  .  The  function  POLY  performs 


B-13 


the  calculation  of  U  [Gv]  according  to  Eq  (87)  (line  46, 
statement  label  110) . 

The  program  calculates,  by  an  iterative  technique, 
the  value  of  "v0"  corresponding  to  Eq  (90)  (lines  51-62). 

It  uses  the  Newton-Raphson  method  to  find  the  value  of  "v0" 

*  M 

at  which  Gv+Y=0  (Eq  8  9)).  The  program  uses  *'v  =  Yoo/Yio 

as  its  first  estimate  of  "vj  (line  55) .  From  Eq  (90) ,  it 

* 

can  be  determined  that  "v0"  is  approximately  "1/2"  quantum 

* 

units  larger  than  the  true  value.  Next,  the  value  "G(vo)+Io  o 
is  calculated  (line  56) .  The  Newton-Raphson  method  is  used 
to  converge  to  the  value  of  "Vo"  which  satisfies  "G (Vo ) +Yo o=0 
(lines  57-62,  between  statement  labels  120  and  130). 

For  illustrative  purposes,  the  Newton-Raphson  method 
may  be  formulated  as; 


X; 


Xl 


f  (Xi) 
f '(Xl) 


(139) 


3y  the  definition  of 
f(x)  = 


f '(x)  : 

f  (Xi)-f  (  X  2  ) 
Xi-X2 


Hence; 


(140) 


x2  =  Xi 


f  (Xl) 


Xl  -  x2 
f(xi)  -  f(x2) 


(141) 


which  corresponds  directly  to  format  of  line  58.  In  Eq  (141) 
f(x)  corresponds  to  "G (v0 ) +Yo 0 " .  Loop  120  is  repeated  until 
a  value  of  "va"  is  obtained  such  that  "G(vo)+Yoo"  is  close  to 


0  (line  57,  statement  label  120). 


The  remaining  portion  of  the  RKR  routine,  from  state¬ 
ment  label  130  to  the  end  of  the  program,  performs  the  inte¬ 
gration  required  to  solve  Eqs  (88)  and  (93)  for  ”f"  and  "g". 
These,  in  turn,  provide  the  classical  turning  points  RMIN 
and  RMAX  of  Eq  (94)  .  RMIN  and  RMAX  values  are  obtained  for 
each  value  of  "v"  [TEMP (I)]  and  corresponding  "G(v)"  [U(I)J 
as  selected  by  inputs  VFIN  and  VINC. 

The  solutions  of  the  integrals  for  "f"  and  "g" 
contain  a  singularity.  When  "G(v')  =  G(v).",  the  denominator 

[DENQ]  of  Eqs  (88)  and  (93)  go  to  0  (lines  82,83,102,  and  110). 
This  singularity  handled  by  assigning  an  "artificial"  upper 
limit  "v"  [BS]  to  the  integrals  which  is  smaller  than  the 
true  upper  limit  of  the  integral,  TEMP(I),  for  the  energy 
level  "G ( v) "  [U(I)]  involved.  The  artificial  upper  limit, 

BS,  is  allowed  to  approach  the  true  value  of  "v"  [TEMP (I)] 
in  increasingly  smaller  steps  until  the  solution  of  the  inte¬ 
grals  for  two  consecutive  values  of  BS  meet  certain  criteria. 

As  BS  is  changed,  the  dv  [d(BS)J  contribution  to  the 
integrals  is  calculated  and  added  to  the  sum  for  the  integrals 
of  "f"  and  "g".  The  rate  at  which  BS  approaches  TEMP (I) 
is  calculated  in  lines  72  and  130. 

The  criteria  used  for  determining  whether  the  solu¬ 
tions  to  the  integrals  are  close  enough  to  their  true  solu¬ 
tion  are  given  in  lines  120-124  (statement  labels  250-260) . 

FEG  is  the  value  of  the  integral  "f"  for  a  given  value  of 
BSn  (line  120) .  FEG 2  is  the  value  by  which  the  integral  for 
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"f"  is  in  increased  for  the  new  value  of  BS„.  .  Thus,  if  the 
ratio  of  the  change  in  the  value  of  the  integral  (FEG2)  to 
the  previous  value  for  the  integral  (FEG)  is  less  than 
0.5xl0-^  ,  the  accuracy  to  which  "f"  has  been  determined  is 
considered  to  be  satisfactory.  GEG2  and  GEG  in  line  121  are 
tested  in  the  same  manner.  In  line  122,  a  ratio  of  changes 
(FEG2/FEG1 )  in  the  value  of  the  integral  "f"  (FEG)  for  two 
consecutive  calculations  greater  than  0.9  indicates  that  the 
accuracy  of  the  integration  is  reaching  a  Limit  and  should 
be  halted.  First,  a  ratio  greater  than  0.9  could  indicate 
that  the  convergence  to  the  true  value  is  slower  than  desir¬ 
able.  Second,  stopping  the  integration  at  this  point  is 
justified  if  the  FEG1,  FEG2  values  are  small.  It  is  assumed 
that  they  are  small.  Similar  arguments  are  given  for  GEG2 
and  GEG1 . 

The  RKR  program  contains  two  integration  routines. 

For  the  first  three  adjustments  of  BS,  the  upper  limit  of 
integration  for  "f"  and  "g",  a  Simpson  rule  integration  is 
used.  Lines  77-92  perform  the  integration  of  the  functions 
for  "f"  and  "g"  over  a  range  from  VMIN  (v)  to  BS  on  the  first 
cycle.  On  the  second  cycle,  VMIN  is  equated  to  BS,  the  lower 
limit  of  integration  and  a  new  upper  limit  BS  is  established 
as  previously  explained.  In  line  77-92,  UV  corresponds  first 
to  the  v'  and  then  to  the  (G(v)-G(v'))  of  Eqs  (88)  and  (93). 
And,  expressed  in  the  notation  of  the  computer  program,  EV 
is  the  G(v')  and  BI  is  the  B(v')  of  Eqs  (88)  and  (93). 
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For  the  fourth  through  the  twentieth  adjustments  of 
BS,  a  Gaussian  integration  routine  is  used  to  provide  a 
higher  degree  of  accuracy.  The  routine  is  contained  in  lines 
93-113  (from  statement  label  180  through  label  240) .  The 
abscissas  [XGAUS]  and  weight  factors  [AGAUS]  are  listed  at 
the  start  of  the  RKR  routine  for  a  Gaussian  integration  of 
moments  where  K=0  and  N=4,6,  or  8  depending  upon  the  success 
of  the  iteration.  The  formula  for  the  integration  is 
(Ref  1:931) : 

n 

^xk  f(x)dx  '  £  w.  f  ( x  . )  (142) 

'  i=l  1  1 

Where 

x^  =  abscissas 

=  weight  factors 

Finally,  RMIN  and  RMAX  for  each  v  ,  [TEMP]  and 
Gv  ,  [U] ,  are  calculated  in  lines  139  and  140  per  formula  (95) . 

After  all  turning  points  have  been  calculated,  control 
is  transferred  back  to  the  program  MAIN  where  CALL  YDHPll(O) 
causes  the  input  Dunham  coefficients  plus  Y0o  to  be  printed. 

Routines  EXTEND,  GLSQ,  FUNC,  and  EXTEND 

The  subroutine  EXTEND,  in  conjunction  with  the  above 
routines,  performs  a  least-squares  fit  to  the  inner  and  outer 
portions  of  the  RKR  and  extend  them  to  RLIMl  and  RLIM2 
respectively.  The  fits  are  performed  according  to  Eqs  (117) 
and  (118).  Eq  (117)  expressed  in  the  notation  used  in  lines 
16-31  of  GLSQ  and  31-39  of  FUNC  becomes: 


Log ! o  U ( I )  =  Z(I)=Bl[x(l)]°+B2[X(I)]1+B3tX(I)]2  +  ...  (143) 


Z ( 1 )  is  calculated  in  EXTEND  and,  as  expressed,  is  the  log 
to  base  ten  of  the  energy.  The  inner  turning  radii,  RMIN , 
are  transferred  into  the  X(I)  array,  and  then  the  function 
FUNC  (called  from  line  18  of  GLSQ)  transforms  the  variable 
X  to  the  form  given  in  Eq  (117),  i.e.,: 


X 


r  -  r  . 
e  min 


(144) 


Expressing  Eq  (124)  in  the  notation  of  GLSQ  yields  a  matrix 
equation  of  the  form: 


Z 
Z 

Z  (145) 

or 

A  ( J , K)  *  B ( J)  =  BB ( J) 

where  A(J,K)  is  formed  in  line  22  of  GLSQ.  BB(J)  is  formed  in 
line  20.  In  line  23,  the  routine  MATINV  solves  Eq  (126)  by 
inverting  A(I,J),  multiplying  it  times  BB(J)  and  returns  the 
B  vector  in  place  of  the  BB  vector.  The  operation  performed 
by  MATINV  may  be  expressed  as  follows: 

B ( J)  =  A(J,K)_1BB(J)  (146) 
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A  similar  pattern  is  followed  for  the  outer  portion 
of  the  curve  except  that  formula  (118)  is  used  instead  of 
(117)  . 

After  the  fits  have  been  performed,  EXTEND  calculates 
20  additional  points  between  the  inner  limit  of  the  RKR 
curve  and  RLIM1 ,  and  99  additional  points  between  the  outer 
end  of  the  RKR  curve  and  RLIM2.  The  points  are  calculated 
using  fitting  Eqs  (117)  and  (118). 

The  change  made  in  line  37  of  FUNC  affects  the  manner 
in  which  the  curve  fit  is  performed  for  values  of  r  between 
the  inner  limit  of  the  RKR  curve  and  RLIM2.  The  difference 
occurs  only  if  the  extension  data  input  in  CARDSET  11  has  an 
r  ,  [R1 (I) ] ,  between  RLIM1  and  the  inner  limit  of  the  RKR 
curve.  When  FUNC  is  called  from  GLSQ  which,  in  turn,  has 
been  called  from  EXTEND  with  an  argument  of  ”1"  (CALL  GLSQ(l)), 
the  inner  turning  points  are  to  be  fit  according  to  Eq  (117) . 

As  written  in  Vidal's  original  program,  line  37,  "IF  (XX.GT.AAA) 
RETURN",  permitted  the  routine  to  continue  on  to  the  next 
statement  when  extra  extension  data  was  added  with  a  radius 
less  than  the  inner  limit  of  the  RKR  curve  [RAA] .  This 
resulted  in  the  returning  of  the  energy  [ U ( i ) ]  of  Eq  (143) 
instead  of  the  log  of  the  energy,  [Z(I)].  Then  when  the  energy 
and  the  log  of  the  energies  are  mixed  in  the  fitting  process, 
the  fit  is  incorrect.  By  changing  line  37  to  "IF(KK.EQ.l) 
RETURN",  the  fit  for  the  inner  turning  points  is  performed 
correctly.  The  variable  "KK"  is  always  "1"  when  the  fit  to 
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the  inner  portion  of  the  RKR  curve  is  performed  (line  31  of 
EXTEND) .  This  change  does  not  affect  the  operation  of  the 
program  when  FUNC  is  called  from  other  routines.  When  FUNC 
is  called  from  line  56  of  FIPA,  "KK"  is  equal  to  "0". 

Hence,  the  radius  [XX]  is  the  controlling  factor  in  lines  7 
and  8  of  FUNC.  Then  when  the  potential  energy  for  the  exten¬ 
sion  points  are  being  calculated,  the  routine  proceeds  through 
line  37  as  it  should. 

This  concludes  the  discussion  of  the  RKR  calculations. 

Subroutine  FIPA 

Control  of  the  program  is  transferred  from  MAIN  to 
FIPA  by  line  83.  This  routine  controls  the  IPA  portion  of 
the  program.  In  the  following  section,  the  inputs  required 
to  run  the  FIPA  routine  are  described. 

FIPA  Input 

CARD  14 

NAME:  LTEST 

FORMAT:  11 

This  input  description  is  repeated  from 
the  RKR  section.  If  LTEST  is  not  equal 
to  "0",  the  IPA  calculation  is  continued 
and  an  IPA  data  deck  is  required  as 
described  below. 
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CARD  15 


NAME:  NI ,NS , IPS IQ , MAX ITT , EPSC 

FORMAT:  414, DIO. 0 

If  NI=1,  data  from  each  SCHR  iteration  is 
printed. 

If  NI=0 ,  the  iterations  are  not  printed. 

If  NS=1,  the  wavenumbers  are  printed  at 
every  IPSIQ  points. 

If  NS=0,  the  wavenumbers  are  not  printed. 
EPSC  is  the  convergence  criterion  for  the 
solution  of  the  Schroedinger  wave  equation 
for  its  energy  eigenvalues,  EvJ  .  An  EPSC 
of  0.001  wavenumbers  is  suggested  as  a  good 
starting  value. 

MAXITT  is  the  maximum  number  of  times  SCHR 
will  attempt  to  satisfy  the  convergence 
criterion . 

CARD  16 

NAME:  RMIN,  RMAX,  M  NRPTT ,  NPL,  MCH ,  LSW 
FORMAT:  2F10. 0,515 

RMIN  and  RMAX  are  the  minimum  and  maximum 
values  over  which  the  potential  is  evaluated 
by  the  IPA  procedure.  M  is  the  number  of 
points  at  which  the  potential  will  be 
eva.Vcated.  The  maximum  M  should  be  2401, 
for  the  program  as  written  in  the  appendix. 
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Memory  size  limitations  may  dictate  that 
fewer  points  be  calculated. 

NRPTT  is  the  number  of  iterations  performed 
in  the  IPA  routine.  On  the  last  iteration, 
the  rotationless  potentials  are  calculated 
to  obtain  Gv  and  Bv 

NPL  is  the  number  of  terms  in  the  Legendre 
polynomial  used  to  represent  the  correction, 

AV  ,  to  the  energy  potential. 

MCH  is  the  control  used  to  punch  a  deck  of 
the  G  and  B  values.  As  stated,  all 
PUNCH  cards  have  been  changed  to  comment 
cards.  If  PUNCH  statements  are  reactivated 
and  MCH=1 ,  the  decks  will  be  punched.  Note 
that  PUNCH  is  not  a  legitimate  Fortran  V 
statement. 

If  LSW=0,  the  first  and  last  iterations  of 
the  IPA  program  are  printed. 

If  LSW=1,  all  iterations  are  printed. 

CARDSET  17 

NAME:  (MTRMIN(I) , MTRI AL ( I ) ,BJTT(I) ,1=1,11) 

FORMAT:  (6(I2,I3,F7.0)/5(I2,I3,F7.0)) 

MTRMIN  and  MTRIAL  defines  the  range  of 
vibrational  quantum  numbers,  v  ,  which  are 
investigated  in  the  Schroedinger  calculations. 
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These  variables  are  input  as  "v+1"  values. 
Hence,  an  input  of  "1"  corresponds  to  the 
vibrational  quantum  number  "0",  etc. 

BJTT  determines  the  ”J(J+1)"  values  for 
which  the  corresponding  MTRMIN-MTRIAL 
range  is  calculated.  The  number  of  BJTT 
values  is  limited  to  11.  The  last  BJTT 
value  must  be  "0"  so  that  the  rotationless 
potentials  may  be  calculated. 

This  completes  the  input  required  for  the  RKR-IPA 

program. 

The  IPA  routine  uses  the  Numerov-Cooley  method  to 
find  numerical  solutions  to  the  Schroedinger  equation  (Refs 
11:363;  14:1872).  The  routine  presented  here  provides  a  method 
for  finding  solutions  for  bound  states.  Vidal  also  mentions 
methods  for  solving  unbound  states  (Ref  43:7).  They  will  not 
be  presented  here. 

Terms  initialized  at  the  start  of  FIPA  are  described 
here.  AZERO  is  the  Bohr  radius  as  measured  in  angstroms. 

Lines  47-49  repeat  the  calculation  of  "re",  [RRE]  ,  the  inter- 
nuclear  equilibrium  separation  according  to  Eq  (119) .  Line 
50  converts  "re"  [CRE]  from  angstroms  to  units  of  Bohr  Radii. 

Lines  51  and  52  insure  that  the  limits  of  the  extended 
RKR  curve  are  beyond  the  RMIN-RMAX  limits  specified  by  the  IPA 
input  CARD  16.  If  not,  the  RMIN-RMAX  limits  are  redefined  to 
conform  to  the  limits  of  the  extended  RKR  curve. 
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Line  53  defines  the  step  size  of  r  [RH]  for  which 


the  potential  curve  is  calculated. 

DO-loop  140  calculates  the  radius-potential  energy 
pairs  [P(J)  and  V(J)]  which  will  be  used  in  the  IPA  routine. 
The  line  of  statement  label  140  calls  on  the  function  FUNC 
to  generate  potential  energies  for  each  value  of  r  .  FUNC 
obtains  the  potential  energies,  V(r),  for  each  value  of  r 
by  performing  a  Lagrangian  interpolation  on  the  radius  poten¬ 
tial-energy  pairs  of  the  extended  RKR  curve.  The  Lagrangian 
technique  may  be  expressed  as  follows  (Ref  16) : 
n  n 

V(r)  =  £  IT  r~Ci  (147) 

i=0  j=0  ri-r j 

where  r  is  the  value  for  which  V(r)  is  to  be  calculated. 
In  FUNC,  four  points  on  both  sides  of  r  are  used  for  the 
interpolation  of  each  point.  In  this  manner,  the  V(r) 
values  are  obtained  for  evenly  spaced  values  of  r  from  the 
unevenly  spaced  potentials  of  the  RKR  routine. 

The  section  of  FIPA  following  the  comment  "SEARCH  FOR 
CENTRIFUGAL  BARRIER,"  finds  the  maximum  energy  which  a  mole¬ 
cular  system  can  have  for  a  given  rotational  energy  level, 

J  ,  for  a  bound  state.  Expressed  in  the  notation  of  the 
computer  program,  the  effective  potential  energy,  SX,  is 
calculated  by  the  formula: 
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SX  =  V(I)  +ABE*  j^pjfy  *AJTT 


(148) 


In  lines  65-72,  SX  is  calculated  for  rotationless  potential 
energy  and  radius  pairs,  f V ( I )  and  P  ( I ) ) .  Hence,  SX  is 
the  effective  potential  energy  for  a  given  radius  and  rota¬ 
tional  quantum  level,  J  .  Fig  B-l  shows  the  behavior  of 
the  potential  for  increasing  J  values. 

The  program  first  finds  the  minimum  of  the  potential 
curve  and  assigns  it  to  ASX.  Once  the  minimum  has  been  found, 
the  potential  increases  with  r  .  Each  successive  larger 
value  of  SX  is  assigned  to  TX.  At  the  same  time,  ASX  is 
equated  to  SX.  This  process  is  continued  until  the  effective 
potential  energy  curves  reaches  a  maximum  as  in  Fig  B-l. 

This  maximum  value  of  SX  is  retained  in  TX  and  is  the  sought 
for  centrifugal  barrier. 

Having  found  the  largest  permissible  value  of  SX  (TX) 
for  a  given  J  value,  the  routine  BETRL  (line  73  of  FIPA) 
finds  the  EvJ.[ETRIAL]  which  is  just  smaller  than  the  centri¬ 
fugal  barrier,  TX,  and  the  corresponding  rotational  quantum 
number  plus  one  (v+1) .  The  "v+1"  value  is  returned  as  NTRIAL 
to  the  FIPA  routine.  NTRIAL  is  then  compared  with  input 
MTRIAL(KI)  and  the  smaller  value  retained  in  the  variable 
MTRIAL(KI)  (lines  74-76).  The  ETRIAL  corresponding  to  the 
retained  MTRIAL(KI)  is  stored  in  the  array  variable  ER(KI) 
(line  77)  . 
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Internuclear  Separation 


Effective  Potential  Energy  Curves  for 
Three  Rotational  Energy  Levels, 

'lif  J  2  r  and  J  o 


In  addition  to  calculating  the  effective  potential 
energy,  the  routine  BETRL  also  calculates  the  values  for  Bv 
[BTRIAL] ,  where  J  does  not  equal  0  .  The  variable  Bv 

is  determined  according  to  the  following  relationship: 


vJ 

TjTj+T) 


3ETRIAL 
3 J (J+l) 


(149) 


The  next  step  is  to  determine  the  range  of  internuclear 
separations,  r  ,  which  is  to  be  considered  in  the  IPA  routine. 
This  range  is  predetermined  by  the  MTRIAL(J)  and  BJTT(J) 
values.  This  range  is  assigned  to  the  variables  RMII  and  RMAA. 

DO-loop  200  performs  the  first  step  in  identifying  the 
RMII  and  RMAA  values.  The  third  line  of  the  loop  finds  the 
first  energy  level,  V(I),  on  the  inner  portion  of  the  RKR 
curve  which  is  smaller  than  or  equal  to  the  ER(KI)  value 
being  investigated.  The  value  of  the  subscript  for  that 
V ( I )  is  retained  in  N3AA.  Line  88  finds  the  first  energy 
level,  V ( I ) ,  on  the  outer  portion  of  the  RKR  curve  which  is 
just  larger  or  equal  to  the  ER(KI)  value  being  investigated. 

The  subscript  of  that  V(I)  is  retained  in  N3BB .  The  process 
is  repeated  for  each  ER(KI),  and  the  smallest  value  of  N3AA 
is  retained  as  N3A  (line  92,  statement  label  220).  The 
largest  value  of  N3BB  is  retained  as  N3B.  The  values  N3A 
and  N3B  are  the  subscripts  of  the  array  P(I)  which  provide: 


RMII  =  P (N3A)  (150) 

RMAA  =  P(N3B)  (151) 
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In  this  manner,  the  limits  of  r  over  which  the  IPA  routine 
and  Schroedinger  equation  are  to  be  investigated  have  been 
established  so  that  they  are  consistent  with  the  specified 
values  BJTT(I)  and  MTRIAL(I)  and  the  centrifugal  barrier. 

The  values  MTRMIN(KI)  along  with  the  MTRIAL(KI)  values  which 
have  been  adjusted  to  be  consistent  with  the  centrifugal 
barrier,  determine  the  range  of  vibrational  quantum  numbers, 
v  ,  over  which  the  RKR  curve  is  evaluated  for  each  value  of 
BJTT(KI).  This  is  true  for  all  iterations  .of  the  IPA  routine 
except  the  last  iteration. 

The  range  of  vibrational  quantum  numbers,  v  ,  which 
are  considered  in  the  last  iteration  for  each  BJTT(KI)  value 
may  be  different  from  that  range  specified  by  NTRMIN(KI)  and 
MTRIAL(KI).  The  investigation  of  potential  energy  ranges 
specified  by  RMII  and  RMAA  may  uniquely  define  energy  levels, 
EvJ  ,  for  a  specific  BJTT(KI)  value  not  included  in  the  input 
NTRMIN (KI) -MTRIAL (KI )  values.  For  the  last  IPA  iteration, 
MTRIAL(KI)  is  replaced  by  LTRIAL (KI ) . 

If  the  radius  of  the  centrifugal  barrier  is  greater 
than  RMAA  and,  thus,  outside  the  region  investigated  by  pre¬ 
vious  iterations  of  the  IPA  routine,  the  maximum  energy 
level  to  be  investigated  for  a  given  value  of  BJTT  is  the 
smaller  of  the  two  following  values: 

TX  =  V (N3B)  +  ABE (RRE/RMAA)  *AJTT  (line  99)  (152) 

SX  =  V (N3A)  +  ABE* (RRE/RMII)  AJTT  (line  101)  (153) 
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where  V(N3A)  is  the  potential  energy  corresponding  to  RMAA, 
and  V (N3A)  is  the  energy  corresponding  to  RMII. 

If  the  radius  of  the  centrifugal  barrier  is  smaller 
than  RMAA,  then  the  energy  of  the  centrifugal  barrier, 

YMAX(KI),  for  a  given  BJTT(KI)  is  compared  with  the  value  in 
Eq  (152)  and  the  smaller  value  retained  for  investigation 
and  assigned  to  the  variable.  BETRL(TX)  then  identifies  the 
first  quantum  vibrational-rotational  energy  level  below  TX 
for  a  given  BJTT(KI).  Then  "v+1"  is  assigned  to  the  LTRIAL(KI) 
variable. 

Subroutine  PLEGEN 

Subroutine  PLEGEN  and  lines  109-119  perform  the  calcu¬ 
lations  necessary  to  give  a  numerical  value  to  the  function 
f (r)  which  will  be  used  to  perform  the  calculations  of 
Eqs  (113),  (114)  and  (115). 

First,  all  the  radii  measurements  are  converted  to 
units  of  Bohr  radii. 

Kosman  and  Hinze  chose  Legendre  polynomials  P^(x) 
to  represent  the  f^(r)  functions  (Ref  23).  Vidal  found 
that  attempting  to  extend  calculations  beyond  RMII  and  RMAA, 
as  specified  by  EvJ  ,  produced  large  oscillations.  He 
finally  settled  upon  a  combination  of  Legendre  polynomials 
and  an  exponential  function  to  dampen  the  oscillations. 

This  combination  improved  the  convergence  of  the  IPA  method. 

The  expression  Vidal  used  is  as  follows  (Ref  41:50): 
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4Vo (r) 


(154) 


=  C  cipi (*)exp(-x2n) 
i 

where  the  typical  range  for  "n"  is  l<n<5.  The  Gaussian  part 
of  Eq  (154)  provides  a  smooth  cutoff  avoiding  unphysical 
oscillations.  The  Legendre  polynomials  are  calculated  using 
the  standard  recursion  relations  (Ref  6:424): 


(n+l)Pn+1(x)  =  (2n+l)XPn(x)-nPn_1 (x)  (155) 

where  P^  =  1  and  P2  =  X. 

Kosman  and  Hinze  used  a  linear  relationship  between 
r  and  X  such  that  X=1  for  r=rmax  and  X=-l  for  r=rmin  . 
Vidal  found  this  relationship  to  provide  poor  convergence 
when  dealing  with  vibrational  levels  all  the  way  to  the 
dissociation  limit  and  when  dealing  with  anharmonic  potentials. 
He  stated  that  the  reason  for  the  poor  convergence  in  the 
case  of  a  highly  anharmonic  potential  is  that  a  linear  inter¬ 
polation  tends  to  optimize  only  the  outer  turning  points  of 
the  rotationless  potential.  To  avoid  this,  Vidal  chose  a 
nonlinear  interpolation  given  by: 


X  = 


(r-r  ) (r  -r  .  ) 
e  max  mm' 


(r  +r  .  ) (r  +r)-2r  r  .  -2r  r 
max  mm  e  max  mm  e 


(155') 


This  relation  assumes  X=l,  for  r=re  •  and  X=0  >  for 

r=r  _  and  X=1  ,  for  r=r  .  .  The  interpolation  becomes 

max  mm 

linear  for: 
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re  =  (155") 

This  formulation  treats  the  inner  and  outer  turning  points 
with  comparable  weight  and  reduces  the  number  of  Legendre 
polynomials  in  Eq  (154). 

Using  these  formulas,  PLEGEN  and  DO-loop  270  calculate 
a  Legendre  polynomial  F(J,I)  with  "NPL"  terms  (i.e.,  J=1 
to  NPL)  for  each  of  the  turning  points  P(I)  on  the  RKR 
potential  where  1=1  to  M 

The  section  of  FIPA  from  statement  label  180  through 
the  second  line  after  statement  label  780, contains  the  state¬ 
ments  necessary  to  solve  the  Schroedinger  wave  equation  (SWE) 
for  its  eigenvalues,  E^j  ,  and  radial  wave  functions, 

It  also  calculates  the  correction  to  the  potential,  Ivj (r)  , 

necessary  to  make  the  eigenvalues  obtained  from  the  SWE  con¬ 
sistent  with  those  observed  experimentally.  The  program 
returns  to  statement  label  180  until  all  the  "NRPTT"  itera¬ 
tions  have  been  completed.  On  the  last  iteration  (NREP=NRPTT) , 
lines  123-125  specify  that  NT3=NT1 .  The  term  "NTT"  is  equal 
to  the  number  of  BJTT  values  which  are  greater  than  "0”. 

As  noted,  the  first  use  of  the  perturbation  technique 
to  adjust  approximate  potential  energy  curves  is  attributed 
to  Hinze  and  Kosman  (Ref  23) .  The  technique  used  in  this 
program  to  solve  the  Schroedinger  equation  is  the  Numerov- 
Cooley  method  (Refs  11;  14).  The  Numerov-Cooley  method  of 
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solving  the  SWE  was  used  by  J.  K.  Cashion  to  test  the  validity 
of  approximate  eigenvalue  equations  developed  by  Pekeris  for 
a  rotating  Morse  oscillator  (Ref  11) . 

The  routine  presented  in  this  paper  solves  the  SWE 
for  bound  states.  Vidal  discusses  techniques  for  handling 
quasibound  states.  The  techniques  for  evaluating  quasibound 
states  are  not  part  of  the  present  program  but  are  here 
briefly  discussed.  One  approach,  Vidal  used  for  quasibound 
states  involved  starting  the  integration  of  the  SWE  at  small 
internuclear  distances  and  looking  for  the  maximum  of  the 
internal  amplitude  inside  the  centrifugal  barrier  as  well  as 
the  phase  shift  of  the  partial  wave  outside  the  centrifugal 
barrier  using  a  Breit-Wigner  parametrization  (Ref  12) .  Vidal 
also  used  a  second  approach  in  the  same  work  (Ref  43) .  For 
quasibound  states,  he  introduced  an  artificial  barrier  at 
large  internuclear  distances  permitting  the  use  of  the 
Numerov-Cooley  method.  The  eigenvalues  he  found  in  this  manner 
were  slightly  higher  than  the  energy  eigenvalues  derived 
from  the  maximum  of  the  internal  amplitude.  Proper  choice 
of  the  barrier  kept  the  differences  within  the  standard 
errors  of  the  measurement.  Using  this  technique,  Vidal  stated 
the  same  numerical  method  can  be  used  for  both  quasibound  and 
bound  states. 

Continuing  with  the  program,  as  presented  in  this 
paper,  it  is  necessary  to  transform  the  energy  used  in  the 
SWE  to  units  which  are  consistent  with  the  units  of  length 
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being  used,  Bohr  radii.  Thus  far,  energy  has  been  expressed 
in  terms  of  inverse  centimeters,  wavenumbers.  To  convert 
wavenumbers  to  energy  units  consistent  with  Bohr  radii,  it 
is  necessary  to  divide  by  this  factor  (Ref  11:1873). 

fiNA  60.19972628 

4-TcaoyA  -  uA  wavenumbers  (156) 

where  a  =  0.52197706  and  NA  =  Avogadro's  number.  The  inverse 
of  this  quantity  is  assigned  to  the  variable  ZEIN. 

The  effective  potential  energies  (given  according  to 
Eq  (148))  for  the  first  BJTT  value,  for  the  whole  range  of 
the  RKR  curve,  is  calculated  in  DO-loop  340.  The  energy 
reference  frame  is  shifted  so  that  the  dissociation  energy 
[DE]  is  the  zero  energy  level. 

The  lines  between  statement  labels  340  and  360, 
establish  the  values  of  J(J+1)  [BJTT (KI) ]  and  the  range  of 
vibrational  quantum  numbers,  NTRMIN  through  NTRIAL  which 
will  be  considered  for  the  experimental  energy  eigenvalue 
V ( I )  of  statement  label  340.  Loop  660  also  starts  here. 

If  it  is  the  last  iteration  of  the  IPA  routine 
(NREP=NRPTT) ,  the  range  of  vibrational  quantum  numbers 
starts  at  "v+l=l"  and  extends  through  LTRIAL(KI)  for  each 
corresponding  value  of  BJTT (KI) .  This  range  is  specified  by 
lines  140  and  141. 

The  value  of  J(J=1),  to  be  investigated  on  a  cycle 
of  loop  660,  is  assigned  to  the  variable  AJTT  in  statement 
label  360. 
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CALL  BETRL(TX)  this  time  calculates  all  the  term 


values,  EvJ  [ETRIAL] ,  for  all  values  of  "v+1"  from  1  to 
NTRIAL  with  J  specified  by  J(J+1)  [AJTT] .  Bv  [BTRIAL]  is 
also  calculated  over  the  same  range.  The  rotational  quantum 
number  J  corresponding  to  J(J+1)  is  assigned  to  the 
variable  LJT  in  line  142. 

The  Schroedinger  loop  which  calculates  the  radial 
wave  functions  [ P { J ) ] ,  Bvj  [BCALC] ,  and  E^  [ECALC]  starts 
with  line  152.  The  SWE  loop  (loop  600)  starts  by  specifying 
the  "v+1"  values  will  be  investigated,  MTRMIN  through  MTRIAL. 
These  variables  were  assigned  their  values  in  lines  137-141. 
Variables  MA  and  MB  are  initiated  to  zero  prior  to  entering 
the  SWE  routine. 


Integer  Function  SCHR 

The  SCHR  routine  solves  the  Schroedinger  equation  by 
the  Numerov-Cooley  method.  The  routine  is  called  by  line  158 
of  FIPA.  Using  this  method,  each  of  the  experimental  term 
values  is  adjusted  to  be  consistent  with  the  whole  RKR  curve. 
Hence,  all  term  values  which  were  used  to  produce  the  RKR 
curve  are  indirectly  used  to  adjust  each  eigenvalue,  E  j, 
solution  found  by  the  SCHR  routine. 


P2  (r) 


[U(R)-E]P(R) 


(157) 


_(n)  _  dn  P 
*  '  d  R" 

where  P(R)  is  the  radial  wavefunction  and  E  are  the  eigen¬ 
values  of  the  SWE.  Cooley  defines  the  potential  energy  U(R): 

U (R)  =  [J (J+l) -A2 ] R~ "-Z  Z,  R~ X+E  (R)  (158) 

cl  D  6  1 

In  this  paper,  the  contribution  of  the  A  quantum  number, 
the  z-component,  due  to  the  electronic  angular  momentum,  is 
ignored.  The  electrostatic  Coioumb  repulsion  energy  of  the 
nuclei,  Z^^R-1  ,  and  the  electronic  energy,  Egi(R),  make 
up  the  vibrational  (v+1/2)  term  of  the  E  '  s  as  expressed  by 
Eq  (2).  The  boundary  conditions  u:.od  are: 

P ( 0 )  =  0,  and  P(R)  bounded  (158') 

The  following  definitions  are  used  to  convert  Eq  (157) 
to  a  finite  difference  equation: 


R.  =h  i  =  0 , 1 , 2 . . . n+1 

i 

P£  =  P(Ri)  (159) 

Ui  =  U(Ri) 


By  dropping  fourth  order  and  higher  terms  in  the  series: 


P.„  +  P.  . 
l+l  i-l 


.  r 


2Ji  2k 

kio  <2*>  1 


(160) 


and  by  using  the  different  equation  to  replace  P^2,  Cooley 
obtained  the  integration  formula: 
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(161) 


P.,i  +  P.  i 
l+l  l-l 


2P.  =  h2 (U.  -  E)P. 
l  l  l 


h1* 

The  error  involved  in  Eq  (161)  is  approximately  -j~2  Pi 

He  then  presented  a  higher  order  integration  formula,  developed 

by  Numerov,  which  does  not  involve  the  calculation  of 

additional  P^'s.  The  formula  is  obtained  by  subtracting 

the  product  of  hL  times  the  following  series: 

12 


+  P.<2\ 
l-l 


i 

k=0 


2h 

(2k) 


( 2k+2) 


(162) 


from  Eq  (160) .  Then  dropping  sixth  and  higher  order  terms 
in  h  ,  gives  the  differencing  scheme  used  in  Vidal's  program 


Yi+1 


+  Yi-1 


2Y .  =  h2 (U.  -  E)P. 
l  i  l 


where : 


(163) 


Yj_  =  Pi  -  (h2  /12)  P<2)  =  [  1  -  ( h2/ 1 2 )  (U±-E)  ]  Pi  (164) 

h  ^  t  v 

The  error  for  this  formula  is  approximately  -  • 

For  all  unbound  states,  E>U(°°)  ,  solutions  exist  for 

all  E  and,  according  to  Cooley,  may  be  approximated  by  using 
Eqs  (161)  or  (163)  to  integrate  outward  starting  with 
boundary  values: 


P  =  0  ,  P  =  a  small  arbitrary  number  (165) 

For  bound  states,  E'U(°°)  ,  only  discrete  eigenvalues, 

E  ,  exist.  The  boundary  conditions  for  solution  to  Eq  (163) 
are : 
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P(0)  =  0 


(166) 


and  for  P(R)  bounded: 

Pn+^  =  a  small  arbitrary  number  (167) 

pn  -  pn+le*P  (Rn+l1'tW:  -  Rn/0^nSr  )  ll67'» 

The  second  condition  results  from  the  assumption  that  at 
,  U(R)  is  slowly  approaching  a  constant  value. 

The  method  of  solution  involves  starting  with  some 
E  (i.e.,  the  experimentally  obtained  term  values)  and  with 
the  boundary  conditions  specified  by  Eq  (166)  integrate  out¬ 
ward  to  some  point  RM  using  Eq  (163) .  Then  the  wavefunc- 

tions  P.  to  P  are  normalized  to  P  : 

l  m  m 

out 

Pi  =  Pi/Pm  1  =  l-'2'3'.--™  (168) 

Then  the  same  procedure  is  followed  starting  at  ?n+1  and 

integrating  inward  to  Pm  .  Again,  the  P^  values  are 

normalized,  this  time,  using  the  P^n  value  obtained  in  the 

inward  integration.  Hence,  pout  =  pin  =1  .At  this 

point,  a  correction  for  E  is  determined  from  the  difference 

in  slopes  of  the  two  portions  of  the  curve  (R<R  and  R>R  ) . 

mm 

The  inward-outward,  E  correction  cycle  is  repeated  until 
the  value  for  E  on  successive  iterations  differs  by  some 
established  limit,  e  [EPS] .  When  this  occurs,  a  satisfactory 
eigenvalue  E  has  been  obtained. 
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The  correction  formula  is  expressed  as  follows: 


D (E)  =  (P*  -  P.'  )/  S  [P(R)J  dR  (169) 

out  m  o 

where  the  P'  terms  are  derivatives  of  the  wavefunctions 
at  Rm  resulting  from  the  inward  and  outward  integration. 
Expressed  as  a  difference  equation  which  is  consistent  with 
Eq  (163)  D (E)  is: 

n 

D  (E)  =  [<-Y  .+2Y  -Y  .)h“2  +  (U  -E)PJ/  £  P?  (170) 

m-i  m  m+l  m  m  l 

•i=l 

Convergence  difficulties  with  this  approach  may  be 
encountered.  Cooley  describes  the  convergence  of  the  tech¬ 
nique  and  how  to  recognize  what  types  of  difficulties  can  be 
encountered.  These  will  not  be  covered  here. 

Problems  with  convergence  will  be  encountered  if  a 
P (R)  is  selected  so  that  the  magnitude  of  radial  wavefunction 
at  Rm  is  "0".  Recalling  that  the  procedure  calls  for  normal¬ 
izing  the  radial  wavefunction  P(R)  at  the  point  Pm  ,  it  is 
clear  that  dividing  by  a  number  close  to  "0"  into  larger 
numbers  can  introduce  significant  errors. 

Cooley's  program  used  the  Numerov  method  to  solve  the 
SWE.  His  program  was  structured  so  that  D(E)  must  be 
decreasing  in  magnitude  from  one  iteration  to  the  next;  then, 
the  D(E)<e  convergence  criterion  is  applied. 

The  problem  of  stopping  at  a  radius  Rm  when  Pm(R)  is 
zero,  is  handled  rather  nicely  from  the  knowledge  that  for 
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the  anharmonic  motion  of  a  diatomic  molecule,  the  wavef unc¬ 
tion  P (R)  reaches  a  maximum  at  a  radius  near  the  outer  por¬ 
tion  of  the  potential.  Thus,  Cooley  started  his  inward  integra¬ 
tion  and  stopped  at  the  value  of  Rm  such  that  Pm  had  stopped 
increasing,  i.e.,  it  had  reached  its  maximum.  This  method 
finds  the  1  rgest  P  and,  hence,  keeps  the  correction 
technique  from  becoming  accidentally  unstable  due  to  a  poor 

choice  of  P  .  This  value  of  R  is  retained  and  the  outward 
m  m 

integration  is  then  performed.  This  concludes  the  discussion 
of  Cooley's  article.  His  article  includes  a  derivation  of 
D (E)  and  further  discussion  of  the  convergence  of  the  method. 

The  discussion  of  the  SCHR  routine  is  now  c  mtinued. 

As  in  previous  sections,  the  notation  in  Vidal’s  program  will 
be  placed  in  brackets  following  the  notation  of  Cooley  when 
use  of  both  is  desirable. 

The  routine  SCHR  starts  by  initializing  the  values 
H  [H],  h2 [H2] ,  and  h2/12  [HV]  of  difference  Eqs  (159),  (163) 

and  (164)  .  The  value  "NN"  corresponds  to  the  "M"  of  input 
CARD  16.  Line  13  sets  EvJ  [E]  equal  to  the  value  of  ETRIAL (I) 
where  "I"  corresponds  to  a  "V+l"  vibrational  quantum  number. 

The  "I"  value  is  specified  by  FIPA,  DO-loop  600. 

The  rotational  quantum  number  J  being  considered 
corresponds  to  the  J(J+1)  [ AJTT]  specified  by  statement 

label  360  of  FIPA.  The  E  _  [ETRIAL (I)]  was  calculated  by 
CALL  BETRL(TX),  line  144  of  FIPA. 
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Next,  DO- loop  10  finds  the  value  on  the  potential 
curve  which  is  just  greater  than  EV(J[E]  and  identifies  it 
temporarily  by  the  subscript  of  V(LCRIT).  If  the  inner 
potential  V(IPP)  does  not  extend  above  EvJ[E],  then  an  error 
message  is  printed  indicating  the  failure  of  the  integration 
routine  with  KERR=1 .  The  loop  16  decreases  the  starting 
subscript  of  the  potential  to  either  V(l)  or  until 
"WCRIT>20 . 0 "  is  satisfied.  It  is  assumed  that  this  criterion 
is  sized  so  thit  for  the  minimum  value  of  .R  considered,  the 
magnitude  of  the  wavefunction  P(R)  will  be  sufficiently  small 
to  satisfy  the  assumed  boundary  conditions,  Eqs  (166)  and 
(167)  . 

This  assumption  may  be  checked  in  the  printout. 

Values  for  the  inner  and  outer  wavefunctions  [S(MA)] 

and  P(R___,)  [S(MB)]  are  printed.  In  the  introductory  comments 

to  his  program,  Vidal  states  that  S(MA)  and  S(MB)  should 

- 1  o 

typically  be  of  a  magnitude  of  1x10  ,  if  the  RMIN  and  RMAX 

limits  are  wide  enough.  This  implies  that  the  "WCRIT>20 . 0 " 
will  produce  S(MA)  and  S(MB)  of  similar  magnitude. 

The  process  is  repeated  to  find  the  first  value 
greater  than  E  T[E]  at  the  outer  end  of  the  potential.  The 
routine  then  extends  the  potential  to  sufficient  magnitude  of 
R  so  that  the  value  of  the  outer  wavefunction  S(MB)  will  be 
sufficiently  small.  Again,  an  error  message  is  printed  with 
"KERR=2 "  if  the  outer  portion  of  the  potential  does  not 
extend  above  EvJ[E], 
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The  values  of  NL1  and  NL2  are  assigned  such  that  V(NL1) 
is  the  second  value  on  the  inner  portion  of  the  curve  less 
than  EvJ[Ej  and  V(NL2)  is  the  first  value  greater  than 
E  t[E]  (lines  23  and  130).  These  values  will  be  used  as  the 
limits  S(NL1)  and  S(NL2)  between  which  the  number  of  codes 
(i.e.,  the  number  of  times  P(R)  [S(R)]  becomes  zero)  asso¬ 
ciated  with  each  E  are  counted.  This  count  is  the  determina¬ 
tion  of  the  vibrational  quantum  number  v[KV]  associated 
with  that  eigenvalue  EvJ  (lines  120-123,  DO-loop  70).  These 
values  are  printed  out  in  the  program  listing. 

Following  Cooley's  method,  the  inward  integration  is 
started  first.  The  outer  numerical  value  for  the  wa^efunc- 
tion  Pn+^  [S (MB) ]  is  assigned  an  arbitrary  value  of  1x10  10 
(Eq  (117)).  The  next  point  Pn  [S(MB-l)]  is  evaluated 
according  to  Eq  (167'). 

The  lines  between  statement  labels  36  and  40  perform 
the  inward  integration  until  P(R)  [S(I)J  stops  increasing. 

The  largest  value  of  the  wavef unction,  Pm  ,  is  assigned  to 
the  variable  PM.  The  correspondence  beween  Eq  (163)  and  the 
program  is  as  follows: 

Yi+1  +  Yj.!  -  2Y±  =  hNu.  -  E)  P.  (163) 

YA  +  YC  -  2YB  =  H2* (GI) *S (M+l)  Line  66 

Y.  =  [1  -  h2/12  (U.  -  E)]  P.  (164) 

YC  =  [1.D0  -  HV*GI ]  (SM)  Line  68 
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The  portion  of  the  wavefunction  obtained  from  the  inward 
integration  is  normalized  by  PM^n  . 

If  S (I)  goes  negative  on  the  inward  integration,  an 
error  message  indicating  the  failure  of  the  SCHR  routing  is 
printed  with  "KERR=3"  indicating  the  source  of  the  failure. 

The  process  is  repeated  starting  at  the  inner  portion 
of  the  potential  curve  and  integration  continued  out  to  the 
radius  corresponding  to  the  previously  identified  PM,  the  point 
at  which  the  wavefunction  first  reached  a  maximum  for  the 
inward  integration.  This  wavefunction  from  S(MA)  to  PM  is 
normalized  with  PMout  •  The  variable  DF  corresponds  to  the 
denominator  EP^2  of  Eg  (170)  (statement  label  53) .  The 
variable  F  corresponds  to  numerator  and  the  correction  to 
EvJ[E]  is  DE.  This  DE  should  not  be  confused  with  the  DE  of 
the  rest  of  the  program  which  is  the  dissociation  energy. 

The  convergence  criterion,  as  outlined  by  Cooley,  is 

satisfied  by  the  lines  between  statement  labels  56  and  60. 

Restating  that  criterion,  DE  [DE=ABS(E  -E  ..)]  must  be 

new  old 

less  than  some  e  (EPS]  with  the  stipulation  that  E  is 
converging  on  consecutive  iterations.  A  converging  E 
requires  that  DE  be  getting  smaller  and  smaller.  Vidal’s 
program  handles  these  requirements  in  the  following  manner. 

TEST  is  assigned  a  value  of  "-1".  If  the  SCHR  routine 
converges  on  every  iteration,  i.e.,  DE  gets  smaller  on  every 
iteration,  TEST  is  assigned  a  positive  value.  Then  line  112 
is  never  applied.  On  the  other  hand,  if  DE  increases,  the 
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e  [EPS]  criterion  is  never  applied  because  TEST  will  remain 
negative.  Hence,  DE  must  get  smaller  which  results  in  TEST 
being  assigned  a  positive  value  before  the  convergence 
criterion  is  checked.  This  prevents  the  routine  from 
accidentally  satisfying  the  convergence  criterion  without  true 
convergence  being  obtained.  This  still  does  not  prevent  the 
program  from  jumping  from  a  solution  for  one  vibrational 
quantum  number  v  to  an  eigenvalue  associated  with  a 
different  v  .  This  error  can  be  detected  in  the  printout 
by  observing  that  a  proper  ordering  of  v[KV]  is  not  maintained. 

DO-loop  70  counts  the  number  of  times  the  wavefunc- 
tion  P (R)  [S ( J) ]  becomes  "0”.  This  number,  as  noted, 
corresponds  to  the  vibrational  quantum  number  v  for  eigen¬ 
value  EvJ[E]  . 

The  last  computation  is  the  normalization  of  the  wave- 
function  P (R)  [S(J) ]  so  that 

MB 

§  S(J)*S(J)dH  =  1  (171) 

J=MA 


The  remainder  of  the  SCHR  routine  is  concerned  with  the  option 
of  printing  the  solution  of  the  routine.  This  option  is  con¬ 
trolled  by  the  "NS”  input  of  CARD  15. 

FIPA  (Continued) 

At  this  point,  control  is  returned  to  FIPA.  If  the 
SCHR  routine  has  been  successful,  a  wavef unction  ranging  from 
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S (MA)  to  S (MB)  is  returned  along  with  a  new  eigenvalue  E, 


1 


vJ 

[ECALC] .  In  this  case,  "SCHR=0"  and  the  programs  proceed 
to  statement  label  420. 

When  "SCHR=1 " ,  this  indicates  that  the  SCHR  routine 
was  converging  towards  the  limit  e  [DE] ,  but  that  the  limit 
was  not  achieved  in  the  number  of  iterations  permitted, 

MAXITT,  specified  by  input  CARD  15.  In  this  case,  the  program 
proceeds  to  statement  label  400,  and  LLK  is  incremented.  The 
variable  "LLK"  is  used  to  report  the  number;  of  times  the  con¬ 
vergence  criterion  e  is  not  satisfied.  This  value  is 
printed  by  the  command  in  statement  label  620. 

If  "SCHR=2"  is  returned  from  the  routine  SCHR,  the 
routine  has  failed  to  converge  for  a  specific  EvJ  .  The 
reason  for  the  failure  is  specified  by  the  value  "KERR" 
specified  in  SCHR  (lines  21,  37,  or  69)  and  printed  out  by 
the  command  in  statement  label  83  of  SCHR. 

If  SCHR  fails,  the  program  proceeds  to  statement  label 
300  and  KLK  is  incremented.  If  the  SCHR  routine  fails  "KLIM" 
times  (where  KLIM  is  specified  as  "2"  in  line  147)  ,  the  pro¬ 
gram  is  halted  by  CALL  EXIT  (line  163) . 

If  SCHR  has  been  successful  at  finding  the  wavefunction 
S(J)  for  a  given  eigenvalue  ECALC,  then  control  proceeds  to 
label  420  where  the  limits  of  the  Schroedinger  loop  are,  if 
necessary,  adjusted  to  be  consistent  with  MA  and  MB.  The 
expectation  values  of  "  are  calculated  for  a  specific 


of  v  and  J  by  lines  169  through  173.  Simpson's  rule  is 
used  to  perform  the  required  integration: 


B 


=  * 
v  4iryc 


(172) 


where  ip  T  is  the  numerical  wavef unction  S(MA)  to  S(MB) 
returned  from  SCHR. 

The  eigenvalue  ECALC  is  converted  to  the  proper 
units  and  the  reference  changed  so  the  bottom  of  the  potential 
well  is  zero  by  adding  the  dissociation  energy  DE  to  the 
potential  (line  157)  . 

The  experimentally  determined  eigenvalue,  ETRIAL ( I ) , 
(calculated  from  the  Dunham  coefficients  by  the  routine  PETRL) , 
is  also  returned  to  the  reference  frame  where  the  bottom  of  the 
potential  well  is  zero  (line  175).  The  difference [DIFF] 
between  the  experimental  eigenvalue  (ETRIAL)  and  the  eigen¬ 
value  (ECALC)  is  then  calculated.  The  variable  DIFF  is  the 
,EvJ  of  Eq  (109)  . 

Line  177  directs  the  program  to  advance  to  statement 
label  540,  if  the  program  is  in  the  last  iteration  of  the  IPA 
routine  as  specified  by  NRPTT.  This  skips  several  calculations 
necessary  to  obtain  the  £V  of  Eq  (113)  .  These  are  not 
necessary  because  the  last  values  calculated  by  the  program 
will  be  printed  and  the  routines  necessary  to  calculate 
Eq  (113)  will  be  skipped. 

If  the  program  is  not  on  the  last  iteration  of  the 
IPA  routine,  it  calculates  (Eq  (114))  the  expectation  values 
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[FPL (k) ]  of  the  f(r)'s  [FX(K,J)]  of  Eq  (113)  where  the  f(r)'s 
are  expressed  in  terms  of  Legendre  polynomials  as  expressed  in 
Eqs  (154),  (155),  and  (155").  The  polynomials  for  f(r) 
were  calculated  in  DO-loop  270  FIPA  (lines  180-186) . 

The  reason  for  the  statistical  weight  EWG  in  line  189 
has  not  been  determined  at  this  time.  It  might  be  used  to 
reflect  the  different  uncertainties  in  the  determination  of 
7EvJ  for  different  positions  on  the  potential  curve. 

Next  I  shall  discuss  the  solving  of  Eq  (115)  for  the 
coefficients  c^  [COEFF(K)]  .  The  equation  is  manipulated 
and  constants  calculated  in  the  normal  least-squares  fashion 
according  to  Eqs  (12-16) . 

The  least-squares  fit  is  performed  according  to  the 
general  formula: 

T  - 1  T 

B  =  (XX)  X'  ,  (13) 


T 

where  X  corresponds  to: 

NPL 

BL (K)  =  Y.  DIFF*FPL(K)  (172) 

k  =  l 


as  defined  by  DO-loop  520.  And  (X  X)  in  notation  of  the 

computer  program  is: 

NPL  NPL 

AL  ( K ,  J )  =  Y.  £  FPL  ( j )  *FPL  (k )  (173) 

k=l  j=l 

The  errors  associated  with  the  calculations  are 
tabulated  in  several  ways.  The  sum  of  the  errors,  £iEvj 


B-46 


[DIFF]  are  calculated  for  each  value  of  AJTT.  This  sum  of 
differences  expressed  in  the  notation  of  the  computer  pro¬ 


gram  is: 


MTRIAL 

GVDIF  =  £  DIFF 

V  =  MTRMIN(KI) 


(174) 


The  average  difference  is  calculated  in  line  (219)  as  the 
variable  GVDA.  The  root  mean  square  error,  GVDF2 ,  is 
calculated  in  lines  199  and  217  according  to  the  formula: 

GVDF2  -  [  Mil  ] ^  (175> 

where  APLTST  is  as  defined  in  line  216. 

The  difference  DIFB  between  as  calculated  by 
Eq  (172),  and  B  as  calculated  by  Eq  (91)  is  obtained  in  line 
202.  This  quantity  is  multiplied  by  1000  and  1000*DIFB  is 
the  value  printed  in  the  output  of  the  program. 

The  variable  "NL"  of  lines  197  and  133  is  a  count  of 
the  total  number  of  "v,J"  combinations  for  which  calculations 
are  performed  for  one  iteration  of  the  FIPA.  DO-loops  640 
and  650  adjust  the  potential  V(I)  to  reflect  a  new  J(J+1) 
value  for  the  next  solution  of  the  Schroedinger  wave  equation. 

The  average  variance  and  the  standard  error  of  the 
fit  used  to  obtain  the  "NPL"  coefficients  of  the  Legendre 
polynomials  (Eqs  (113)  and  (115))  for  the  "NL"  combinations 
of  "v,J"  are  calculated  in  lines  228  and  229. 

On  the  first  iteration,  line  230  transfers  the  program 
to  statement  label  700  where  the  coefficients  of  the  Legendre 
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polynomials  of  Eq  (115)  are  calculated.  The  routine  MATINV 

called  by  line  242  inverts  the  matrix  AL(K,J)  which  then 

T 

corresponds  to  the  (X  X)  of  Eq  (13)  and  returns  the  inverted 
value  in  the  same  matrix.  The  MATINV  routine,  using  the 
inverted  AL(K,J)  matrix  and  BL(K)  calculates  the  coefficients 
of  the  Legendre  polynomials  of  Eq  (115) ,  and  returns  the 
coefficients  in  the  BL(K)  array.  DO-loop  720  then  assigns 
the  BL (K)  coefficients  to  the  array  COEFF(K).  DO-loops 
740  and  760,  then  use  the  coefficients  c^[BL(k)]  and  the 
expectation  value  FX(K,I)  to  calculate  the  correction  potential 
AV(r)  of  Eq  (113).  Then  in  the  same  line,  a  new  corrected 
potential  is  obtained  (Eq  (110)). 

The  minimum  of  the  potential  curve  is  found  (VMIN) 
and  a  new  Y0o  (YDH(1,1)]  Dunham  coefficient  is  calculated 
(line  253)  . 

At  this  point,  program  control  returns  to  statement 
label  253  for  the  "NREP"th  iteration  of  the  inverse  perturba¬ 
tion  routine. 

On  the  second  and  following  iterations,  the  program 
continues  on  from  line  230.  The  standard  error  of  EvJ  for 
all  combinations  of  "v,J"  is  assigned  to  GVT.  Using  the 
coefficients  COEFF(K)  and  the  "error"  ERROR (K)  of  the  previous 
cycle  (see  DO-loop  720,  DO-loop  680  prints  the  constants 
[DBAA]  of  the  Legendre  polynomials  used  to  calculate  AV  , 
the  standard  error  of  that  constant  [T*j  (line  236)  ,  and  the 
ratio  of  the  error  to  the  constant,  i.e.,  T/DBAA. 
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After  the  last  iteration,  iteration  number  "NRPTT", 
line  241  transfers  the  program  out  of  the  loop  which  per¬ 
forms  the  IPA  calculations.  DO-loops  820  and  840  calculate 
the  correlation  coefficients  for  the  Legendre  polynomials 
(Eq  (16) )  . 

The  routine  POTTAB  (called  from  line  264  of  FIPA) 
then  takes  the  potential  energy  curve  generated  by  the  IPA 
routine  and  produces  the  final  set  of  turning  points  for  the 
eigenvalues  EvJ  of  the  routine  and  a  second  potential  arranged 
in  order  of  increasing  "r"  from  P(I)  minimum  to  P(I)  maximum. 

POTTAB  starts  by  finding  the  minimum  potential  V(I) 
and  assigns  that  value  of  "I"  to  IMIN.  Next,  starting  with 
the  inner  portion  of  _ne  adjusted  IPA  potential,  from  V(l) 
co  V(IMIN),  CALL  PLLYNN  finds  the  inner  turning  radii  (AINN(I) 
for  each  of  the  eigenvalues  (EEE(I)]  which  were  defined 

in  line  203  of  FIPA.  PLLYNN  obtains  the  turning  points  by 
doing  a  Lagrangian  interpolation  to  the  IPA  potential.  The 
process  is  repeated  from  V(IMIN)  to  V(M)  for  each  EEE(I) 
to  obtain  the  turning  points  on  the  outer  portion  of  the  IPA 
potential.  The  vibrational  quantum  numbers,  v[IA],  the 
energy  eigenvalues  [EEE(I)],  the  inner  and  outer  turning 
points  [ AINN ( I )  and  AOUT(I)],  and  the  corresponding  Bv 
[BBB (I) ]  values  are  printed. 

POTTAB  then  using  the  new  IPA  potential,  P(I)  and 
V ( I ) ,  where  1=1, M,  and  the  original  RKR  curve  XI(I)  and 
Yi(I)  where  I-1,N,  determines  an  "IPA”  potential  energy  for 
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each  RKR  turning  point,  XI (I),  by  interpolation  of  the  IPA 
curve.  The  difference  in  RKR  and  IPA  energies  for  that  radius 
is  calculated. 

Next  POTTAB  estimates  the  standard  error  of  the 
potential  for  each  value  of  "r"  [XI (I)].  This  standard 
error  is  based  upon  Eq  (110): 

V  (r )  =  V(r )  AV0  (r)  (110) 

The  validity  of  the  calculation  used,  is  based  upon  the 
assumption  that  the  routine  has  converged  within  some 
acceptable  error  limits  to  some  V(r).  Any  error  in  V(r) 
is  then  associated  with  calculation  of  AV(r)  .  The 
correction  AV  to  the  energy  potential  has  been  obtained 
using  the  Legendre  polynomials  of  Eq  (154).  From  the  errors 
of  the  coefficients  "c^"  used  to  calculate  the  correction 
potential,  the  error  of  the  correction  can  be  estimated. 
DO-loop  99  calculates  the  estimated  standard  error  of  the 
potential  and  prints  it,  the  potential,  the  turning  point,  the 
difference  between  the  RKR  and  IPA  potential  :;nd  the  standard 
error  of  the  potential. 

Control  of  the  program  is  returned  from  POTTAB  to 
FI PA .  FIPA  prints  out  a  summary  of  the  sum  of  the  differences 
for  each  value  of  J(J+1)  calculated  on  each  IPA  iteration. 

It  also  prints  out  the  average  errors  for  all  values  of 
J(J+1)  for  each  iteration.  The  program  last  of  all  prints 


B-50 


out  the  original  Dunham  coefficients  with  the  new  Y0o 
which  has  been  calculated  to  set  the  minimum  of  the  potential 
energy  curve  to  zero. 

This  completes  the  description  of  the  RKR-IPA  program 
for  one  of  set  data.  Control  is  then  passed  back  to  MAIN. 

If  new  data  is  provided,  the  RKR-IPA  calculations  are 
repeated  for  the  new  data. 

To  avoid  any  loss  of  information,  Vida's  original 
comments  on  input  and  output  are  included  in  this  appendix 
with  the  revised  program. 
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PROGRAM  MAIN 
C  AM  JS  :  GCR.JL1HIMP 
c  iain  pr  tiRAM;  ripa  SYSir>i 

l 

c  this  prjgka  i  is  a  unification  hi  thl  kki<  and  ipa  programs  wherf 

C  The  RaR  PJTENIIAI.  IS  USED  as  an  IjITIAI  POTENTIAL  IN  THE  I P  A 

£  PROCEDURE. 

£  R I P  A  COvSIRJCTS  A  POTENTIAL  ClU’VF  run  A  *|  ILLCTRJN1C  S  T  A I F  Or  A 

C  »UTATIOnL£SS  UlUjllC  MJLECJLC  —  I.E.,  PAIRS  Or  INNER  AND  JIIIF  R 

c  classical  tjrui  ig  pjints  aui-  associated  fnfrgv  levels  —  iron 

C  O  O  N  N  A  *|  EXPANSION  COEFFICIENTS  n,  JSlil,  I M  t  KYDBERU-<IEIN*RFES 

C  METHOD.  II  THLH  PERT  IR’IS  AN  F  X  T  ii  A  POL  A  T  I  ON  01  T  H  L  INNER  ANC  JUTER 

c  turning  pjints.  einallt.  ripa  performs  an  inverted  perturbation 

C  APPROACH  WHERE  THE  .NEASJRED  TERM  VAIJLS  Al.f  EITIED  TO  Till  QJANTUM 

C  MECHANICAL  ENERGY  EIGENVALUES  OF  A  ROTATING  V I RH  A  IflR  OT  REAMS  TIE 

C  A  LEAST  SIUARES  EH  USING  A  VARIAIIUNAl  METHOD. 

c 

C  The  INPJT  CARD  DECK  Of  THE  PROGRAM  RIPA  RUST  HE  AS  FOLLOWS. 

C 

£  The  first  CARD  IAS  ITtsr  IN  COLUMN  1.  IF  ITEST  *  0,  THE 

C  PrOuWAM  WILL  STOP.  IE  ITESI  =  1,  THE  PROGRAM  WIIL  START  A 

C  COMPLETE  CALCULATION  SE1UENCE.  AH  D  THL  DATA  DECX  OUST  BE  AS 

C  FOLLOWS. 

C 

c  the  hlxt  two  cards  have  the  output  page  title  in  columns  1 

c  ThROU«H  72. 

c 

C  The  MIXT  CARO  has  IMS, the  values  Of  THE  MASSES  Of  THE  TWO  A I  JR  S 

C  AfiD  I  li  E  IDfi.IIF  1CATI0  I  CODE  II  1HE  LLLCTRJNIC  STATE  UNDtR  STUDY 

C  Tli  f  OR  H  A  T  I4.2D1A.9.32X.A4.  THE  VALUES  OF  ME  MASSES  SHOULD  RE 

c  expressed  in  atomic  units,  tms  must  dl  i  if  the  carbon  scale 

C  IS  USED  AMD  MUST  BE  2  IE  THL  OXYGEN  SCAlE  IS  USED.  TurkE  IS  AN 

c  OPTIONAL  way  Of  USING  THIS  IASS  CARD.  INSTEAD  Of  LISTING  THE 

C  MASSES  JF  THE  TWO  ATOIS  SEPARATED,  THE  REDUCED  MASS  JE  T II F 

C  MOLECULE  UN  ATOMIC  U|US)  MAY  UE  E  »N  T  E  P  E  D  III  THE  TIRST  MASS  FIELD 

C  THE  SECOND  MASS  FIELD  RJST  THEN  BE  LEFT  BLANK.  THE  CHOICE  'JF 

c  carbon  or  oxygen  scale  must,  of  course,  still  re  entered. 

c 

C  T H E  next  card  READS  NOUN, ( J  l< I > . I *1 ,RDUN)  IN  TORMAT  1115.  THE 

C  I'OUN  VALUES  nf  WR;  N 1  ,  '|2 ,  n3.  ....  SPECITT  TlIF  NUMBER  JF  DUNHAM 

C  rriEf  f  ic  ients  yci,d,  YCI,2).  Y(I,0) . 

C  The  next  cards  CONTAIN  the  DUNHAM  COEFFICIENTS  TCI,X>  WHICH  ARF 

C  READ  IN  GOING  F  RON  1*1  TO  MJUN:  ( T (  I  ,  1  > . 1 *1 ,N1 ) ,  (Y(I,2),1*1,N2), 

C  <Y(  1,3)  ,1*1  ,Ni) .  IN  f  JPMAT  14d13»9>. 

C 

C  THE  NEXT  CARD  CONTAINS  THE  DISSJC1»TIJN  FNERGY  DE  AND  THE  elec- 

C  TRONIC  TER”  TE  IN  FORMAT  2D15.R  AID  EXPRESSED  IN  RECIPROCAL 

C  C  tNT  I  ME  I E  KS .  Dt  IS  lilt  ENERGY  SEPARATION  BETWEEN  THE  PITENTIAI 

C  MINIMUM  Of  THE  ELECTRONIC  STATE  UNDER  STUDY  Al,0  ITS  DISSOCIATION 

C  LIMIT.  TE  IS  THE  ENERGY  SEPARATION  OFTWEEM  THE  POTINTIAL  MINIMA 

C  Of  THE  ELECTRONIC  STATE  UNOL»  STUDY  »ND  OT  THE  GROUND  ELECTRONIC 

C  STATE  OF  THL  MQLCCULE .IF  THE  ELECTRONIC  STATE  UNDER  STUDY  IS 

C  ITSELF  THE  GROUND  STATE,  THIS  CARD  MUST  PE  BLANK. 

C 

c  the  next  card  contains  vriN,  and  out  in  tormat  2T6.2.  ripa  cai- 

C  CULATES  INNER  AND  IUTeR  TURNING  P  3  T  1. 1 S  f  ’>R  V  *  -3.25  ANl’  f  OR 

C  TaCII  value  or  V  FROM  ZERO  TO  VFIN  III  STEPS  OF  VINC.  IT  IS  RJT 
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59 

60 
6  t 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
73 
79 
BO 
81 
82 

83 

84 

85 

86 
87 
83 
89 
93 

91 

92 
9  j 
9  4 
9  5 

96 

97 

93 
99 

1*3 
1  M 
132 
13  3 
104 

135 

136 
1  3  7 
1*3 
139 
110 
111 
112 

113 

114 

115 

116 


C  "ECLSSARY  THAT  Vfll,  AN  D  /  JR  VINt  3F  INTEGRAL.  T II F  Q  J  ATIT  ITT 

C  wri'i/wl-ic  MUST  KIT  CXCFLP  393. 

C 

C  Tl.F  nt  X  T  CARH  is  THL  KLLTN  ACTUM  INTEGRAL  POINT  SWITCH  A*|D 

C  Cj *4 TAINS  IOPFU  1*1  FORMAT  H.  IT  IS  USED  III  GFMERATHlG  THE 

C  INITIAL  R<R  POT  CM  T  I  At  .  IF  IJ6FG*1.  THL  VALUES  )f  THE  K  L  L I  '•  ACTION 

c  integrals  are  printlo  fjr  all  oi  the  iterations  assjciateo  with 

C  FaCII  JF  f  lit  VALJES  Ilf  V  FJR  WHICH  PAIRS  m  TURNING  PTJNIS  are 

C  CALCULATE!..  IF  IJPFG*3,  THESE  VALUES  ARE  NOT  PRINTER. 

C 

C  The  next  CARD  CONTAINS  RL 1 * 1 ,  RLI12.  AND  NEXT  IN  IUR-AT  2F6.2.I2. 

C  »tni  and  PL  I  '17  ARE  THF  INNER  A\0  'Hi  TE  R  U»tTS,  RL S Pt  C  T I  VEL  Y , 

C  T  J  WHICH  EXTENSIONS  OF  TNf.  « Y DHL R S-F l L I N-RE l S  TURNING  POINTS 

C  WILL  HE  ESTIMATED,  I"  *  FASHION  TO  HE  DESCRIBED  «EL'JW.  THE 

C  1:|PJT  QUANTITY  NEXT  IS  THE  IIU'ISER  Or  EXTRA  EXTENSION  PAT* 

C  PUT  ITS  FI  FOLLOW.  NEXT  NAY  NOT  EXCEED  25  AND  HAY  BE  7ER0,  IF 

C  *•;)  EXTRA  DATA  P.1I  ITS  ARE  TO  HE  ADDED. 

C 

l  The  next  NEXT  CAROS  EACH  CONTAIN  R1<!>  AND  PE1(I)  IN  FORMAT 

C  ?Dl5.9.  THE  RKl)  AND  PC  1  1 1  )  ARE  R  AND  POTENTIAL  ENERGY  PAIRS 

L  VOUCH  hay  HE  USED  TJ  5IJIPE  THE  EXTENSION  TO  THF  RYOIERG- 

C  XLE1N-REES  TURNING  P  1NTS,  AS  DESCRIBED  HLLJW.  THE  UNITS  OF 

C  THE  RMl)  AND  PE  1  1 1 )  SHOULD  HE  ANlSTRJHS  AND  RECIPROCAL 

C  Ct NTT  METERS,  RESPECTIVELY.  NOTE.. ..IF  NL » T  IS  7LR3.  THESE 

C  CARDS  HJST  HE  OMITTED  FROM  THL  INPUT  DECK. 

C 

C  The  NEXT  CARD  CONTAINS  THE  FITING  PARA«CTtRS  K F I T ( I ) , I ■ 1 , 2  AND 

C  *  KITE  l>  .1*1  .4  IN  FORMAT  6IS.  IF  THE  CAPD  IS  RL»‘IK  THE  PROGRAM 

c  takes  the  default  valjfs  2.  4,  3,  a,  5. ip.  for  extrapolating  the 

t  INNER  TJRNIlG  POINTS  KFIT(1>  CONSTANTS  inside  an  CXP-FHNCTION 

C  Of  PIE  FORM  FXP( A( 1 > ♦ A( 2) «X*. . . )  ARE  USED  WHICH  ARE  DETERMINED 

C  HY  A  LEAS!  SQUARES  FIT  JF  T|iF  KFITd)*?  INNERMOST  RKR  TURNING 

C  POINTS.  FIR  EXTRAPOLATING  THE  OUTER  TURNING  POINTS  KF1T(2>  CON- 

C  S  T  A  |T  s  AFE  USLD  IN  A  IUNCTION  Of  THE  TORM  S  jM  (  A  (  r  )  *  R  *  *  ( -r  J||  T  <  <  >  >  ) 

;  wMrxr  nm  splcifies  the  invffsl  poufrs  nr  the  intfrniiclfar  dis- 

C  TANCE  p  IN  THL  LO16  RANGE  INTERACTION  FUNCTION.  THE  CONSTANTS  ARE 

;  DETERMINED  my  A  LC*S1  SJiIARES  fit  OF  the  KFIT(23+4  outermost  ryr 

L  TURNING  POINTS. 

L  THF  NC«r  OATA  CARD  IS  THE  PUNCH  CONTROL  CARD  AND  CONTAINS  1PNRKR 

C  *ND  I P  N I P  A  IN  rjRNAT  2 1  2 .  IF  IP*|RKR*1,  AN  OUTPUT  DAT*  DECK  (RKR) 

C  IS  PUNCHED.  IF  IPNIPA=1,  AN  OUTPUT  D*TA  DICK  (TPA)  IS  punched. 

c 

C  THF  next  CARO  HAS  LTEST  IN  COLUMN  1.  IT  ITEST*3,  THE  VARIATIONAL 

c  procedure  is  skipped  and  the  program  upturns  to  the  beginning  to 

C  "ISU’E  THE  NFXT  PROBLEM  by  READING  ITEST  (SEE  A  30V  E  > . 

c 

C  TF  LTEST*1,  the  FOLLOWING  ADDITIONAL  CONTROL  cards  ABE  NEEDED  to 

c  B.IN  T.IF  INVCRTE9  PFR  T  UP  J  A  T  I  ON  APPROACH. 

C 

C  TP.f  NEXT  CARD  CONTAINS  CONTROL  VARIABLES  UR  SC  HP  AS  FOLLOWS — 

C  HI  .  IS,  IPSIQ  .mak  IT.  AN)  EPS  1*1  FJR'IAT  414,013.;). 

L  1|  Ml  *  1  OATA  FRO*  r  A  F II  ITLPATl.ll  IS  PRlNTLD. 

C  Tf  II  c  3  IMF  ITFRATI 3NS  AIL  NOT  ’R1NTFD. 

L  IF  IS  *  1  Till  WAVE  f  I'lr  I  JONS  APE  PRINTED  AT  EVERY  IPSIQ  POINTS. 

C  IF  MS  »  3  THF  WAVL  FUNCTIONS  A»l  lOT  PRINTED. 

I  F rs  IS  1  HE  CONVERGENCE  C •» I T I. ° H»i* .  0.331  WAVENUMBERS  IS  »  G'JUD 

C  STARTING  VALUE. 
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CF  r 


117 

IIS 

119 

120 
121 
122 

123 

124 

125 

126 
127 
12  3 
129 
1  30 

131 

132 

133 

134 
1  35 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 
143 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 


t  whit  !»  t  ml  .*  a  i  n>  •  '.irinLft  nr  tiies  sc  hr  out  atienpt  to  satisfy 

t  the  c  inverglnlf  criferiju.  fen  is  a  soon  starting  value, 

i 

C  the  next  c  » i:  r>  S  COiiain  rmin. <max . -i.upp t  t.npl, mch.lsw 

C  Arm  (  ITJ'II'K  I  )  .  ITK  I  AL  (  1  )  ,'IJTT  (  I  )  .  I«1  ,1 1  ) 

C  If.  EOk-iaT  2i  1.1,  515/3(12. 13,  r5.0>/3(l2. 13,  E5.«*>. 

C  RMIN  AND  UMAX  ARI  THE  LJJC»  AND  II  PPL  R  Ll'UIS  OVER  WHICH  THE 

C  POTENTIAL  CJR4E  IS  I  1  ni  CONSIDERED  I  |  THt  IPA  PRJCLDJRE. 

t  m  is  rut  jo  HU.P  nr  points  ti  hi  used  in  the  interpolated  jell 

C  MAX l«  I  t  N  I  $  2  401 

c  nkpit  defines  thi  nj'ijlk  ir  iterations  ron  ihl  inverted  plriurha- 

C  Tl  l*(  APPROACH.  -HERE  IHL  L*ST  ITERATION  CALCULATES  THE  kOJATION- 

C  LESS  POTENTIAL  f  »«  IHL  OF  I  I Ni I IJN  Or  THE  GV  AND  IJV. 

C  NPL  IS  THE  ORDER  JF  THE  f  JPilE  C  T  1T|  FUNCTION  OF  THE  POTENTIAL 

C  WHICH  IS  DISC  LINED  ux  A  SU"  OF  LEGEtlDkF  polynomials. 

C  MFR'IIN  AND  OTPIAL  art  THE  MINIMUM  Ar.D  MAXIMUM  VALUE  nr  V«1  f  OR 

C  WHICH  TRIAL  VALUES  ARt  GFICjATFD  (USING  THE  DUNHAM  C  OE.  E  T  I  C  I  E  N  T  S ) 

t  FOR  CALCULATING  THE  S C H R OE P I NGE R  EQO A T 1  ON .  THE  PROGRAM  STOPS 

C  AUTOMATICALLY  AT  THE  L*ST  ROU.D  STATE. 

C  BJTT  ARE  1HE  VALUES  Of  JCJAl)  FOR  WHlLH  THE  POTENTIAL  IS  CALCN- 

C  LATEP. 

C  FUR  MCH«1  THF  PROGRAM  PJNCHLS  A  PECK  OF  ALL  THE  GV  AND  BV  VALJFS 

c  calculated  in  thf  last  iteration. 

C  FOR  L$j=2  THC  PROGRAM  PRINTS  THL  FIRST  AND  L»ST  ITERATION  nf  THE 

C  inverted  pfkturbat j on  approach,  fop  lsw=i  all  iterations  are 

C  PRINTED. 

C 

c  this  compleies  the  input  dam  decs  for  one  eiectronic  state, 

c  there  are  nuu  Ton  options,  ir  no  othlr  putlntial  curves  are  to 

C  RL  CALCJLAIEP.  a  ULANx  CARP  must  OE  A I  THE  end  UE  THE  DATA  DECT, 

C  I.F.,  I TE  ST  *i».  IF  A  SECOND  INPUT  DATA  DFCX  IS  TO  FuLLO.'  FOR 

C  ANOTHER  ELECTRONIC  STATL,  THE  AUOVE  InSTRUCTIUNS  SHOULD  RE 

C  REPEATED.  I.F.,  IfESTsl. 

c 

C  The  FOLLOWING  COMMENTS  APPLY  TO  TIE  PRI'lTtD  OUTPUT  UF  R1PA. 

C 

c  the  first  listing  starts  jitm  the  title  *nd  the  identification 

C  NUMBER  Jf  T  UF  ELECTRONIC  STATE.  THE  VALUES  UF  T II F  AIl'IIC  MASSES 

C  CUR  The  VALUE  of  ihl  REDUCED  mass  of  THC  MOLECULE)  are  ALSO 

C  PRINTED  A'JP  THE  CHOICE  JT  CARUO-J  UR  OXYGEN  SCALE  IS  NOTED.  THE 

C  LISTING  ALSO  CONTAINS  THF  RISULTS  OF  THL  RX  K  CALCULATIONS.  FOR 

C  EACH  VALUC  OF  V  IN  STEPS  Of  V1NC  JP  ij  VEIN,  IHE  PCIIFNUAL  AND 

L  INERTIAL  ENERGIES,  the  INNER  AND  OUTER  TURNING  POINTS.  AND  THE 

C  FINAL  VALUES  OF  THE  X  LF I N  ACTION  INTEGRALS  ARE  LISTED.  lilt 

c  potential  energy  IS  The  EXPANSION  FUR  GV  ♦  Y<J,3>  FVAL'IATCD  at 

C  V.  the  INERTIAL  FNERGt  is  the  EXPANSION  FUP  BV  tVALUATFD  AT  V. 

C  OiJTH  A«E  EXPRESSED  IN  RECIPROCAL  C  E  I.  T I  ML  T  E  R  S .  THt  I  JU  TURNING 

c  points  ape  expplssfd  in  angstroms,  this  listing  *ill  also 

C  INCLUDE  THC  INTERMEDIATE  VALULS  OF  THt  KLEIN  INTEGRALS  IE 

C  I JP F  G*  1  . 

L 

C  THE  second  LISTING  CONTAINS  THE  PARAMETLRS  that  PCRTAIN  tj  the 

C  '  fit  of  the  INNER  AMD  IIIIER  EXTENSIONS  OF  THL  RKR  POTENTIAL. 

C  FUR  THE  FUNCTIONS  INDICATED  All  IV F  Tilt  LISTING  GIVES  Tilt  CONSTANTS 

c  Ann  their  standard  lrrors  amo  the  totai  standard  error,  it  shows 

C  THE  TIT  FJR  THF  FaUMSIJM  'Of  THt  INNER  AND  JUT  El!  TURNING  POINTS. 

C  FINAI.LT.  IF  CXTPA  EXTENSION  DATA  >niNTS  ARE  USED,  THE  DIFFERENCES 

C  R£  T  «F  t  N  TNFSE  AND  THE  FIT  FUNCTION  ARE  GIVEN  IOR  £*CH  OF  THE 
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175  t 

176  C 

177  t 

178  t 

179  C 

1  8  J  C 

181  C 

182  C 

1  8  J  C 

184  l 

185  C 

186  C 

187  C 

188  C 

189  C 

19a  C 

191  t 

192  C 

195  C 

194  C 

195  C 

1  9  &  C 

197  C 

19  3  C 

199  C 

283  C 

281  C 

2*12  C 

285  C 

28  4  C 

285  C 

286  C 

287  C 

288  C 

289  C 

21 J  C 

211  C 

212  C 

215  C 

214  £ 

215  C 

216  C 

217  C 

218  £ 

219  £ 

228  E 

221  £ 

222  £ 

225  £ 

224  £ 

225  £ 

226  £ 

227  C 

228  £ 

229  £ 

253  £ 

251  £ 

252  £ 


InPJT  Rill). 

furthermore,  the  djnmam  coefficients  arl  listed  with  the  CALCU¬ 
LATED  VALUf  Y(8,3>. 


THE  FUltUING  PRI  (TOUT  EXCEPT  F  OR  T»;E  DJNI|A*|  C  HE  F  T  I  E  1 1  *1  T  S  DOES 
NUT  APP£»H  If  LIFSTxit. 


THE  FOLLOWING  LIST  PRESLNTS  THE  AAKAUTtn  OF  THE  INVERIED  PEK- 
turba t  I  On  ApnraiAC  (. 


The  PROGRAM  THEN  iEMRATFS  A  PRINTOUT  OF  THE  1IKST  A  HO  LAST  TIE- 
ratiivj  of  the  inverted  pfrTuRuau  jh  appruach  and  a  prxhtdjt  m 
THE  INTERMEDIATE  ITERATIONS  Tf  LSW  =  1.  FUR  EVERY  VALUE  Of  9JIT 
IT  GENERATES  A  TAiLL  WHICH  CONTAINS  F 19  ALL  VALUES  Of  V  SPF- 
EIEIEO  3Y  MTRlIM  A  HD  HTItlAL.  THE  JIIA  N I  II.H  HE  £  H  AN  I C  AL  ENERGY  EIGEN¬ 
VALUE.  THL  MEASJRED  TERN  value,  TIE  DIFFERENCE,  ThE  CALCULATED 
8v  VALUt,  The  difference  TH  the  MEASURED  value  AMD  THE  VALUES 
(IF  THE  RAVE  FUNCTIONS  FOR  THE  INNLRf'OST  AnD  OuTERMOS  T  NENUERS 
OF  THE  array  S.  ha  AND  HB  ARE  OETERflNED  UT  THE  S  f  Ot  D  I  NGE  R 
ROUTINE  SUCH  THAT  S<HA>  AND  S<HU)  AhF  TYPICALLY  1.D-18  IF  THE 
UNITS  RHIII  AID  (MAX  ARE  1ADE  HIDE  ENOUGH. 

FUR  THf  LAST  ITERATION  THE  TABLE  CONTAINS  VIBRATIONAL  LEVELS 
ABOVE  THE  IIPPLR  DASHED  LINE  AND  BILOW  TllE  I  OWLR  DASHED  LINE  WHICH 
ULRE  N'T  SPECIFIED  it  Y  THE  DATA  FIELD  ANJVt,  «UT  WHICH  ARE  UNIRHE- 
LY  SPECIfirO  BY  TIE  RANGE  Of  1  NT  E  TNliC  L  FAR  DISTANCES  WHICH  HAD  TJ 
H£  ADJUSTED  M  THE  INVERTED  PLRTIIHBAT  ION  APPROACH. 

THE  MEASURED  VALUES  ARE  THOSE  PLFINED  BY  THL  DUNHAM  C  Ot  T  F  I  C  l  E  NT  S  . 
EVERY  TABLE  IS  CLOSLD  WITH  THE  AVERAGL  DEVIATION  AND  THL  STANDARD 
ERROR  IN  CMaaC-1). 

AFTER  EVERY  ITERATION  THE  PROGRAM  PRINTS  THL  COEFFICIENTS  Of  THE 
LINEAR  COmiNATIOj  OF  LEGENDRE  POLYNOMIALS  OR  1  A I NE  D  IN  THE  IN¬ 
VERTED  PERTURBATION  APPROACH.  IT  USO  LISTS  THE  STANDARD  ERROR 
A  M  D  IMF  RCIATIVE  STANDARD  ERROR.  IE  THE  LATTER  QUANTITY  IS  L  A  R  G l R 
OR  COMPARABLE  TO  1  AFIEH  THE  FIRST  ITERATION,  NPL  CAN  BL  LOWERED 

In  thl  next  hun  nr  the  program.  the  last  set  jf  coefficients  is 
FOLLOWED  OT  THE  CORRESPONDING  CORRELATION  MATRIX. 

THE  next  LISTING  GIVES  thl  INTERPOLATED  IHNLR  And  (0JTE»  TJRNING 
POINTS  and  Till  JV  VALUES  FOR  THL  CALCULATLD  QUANTUM  MLCllA.NICAl 

energy  eigenvalues  of  the  rjtatio iless  molecule  as  obtained  aetlr 
the  LAST  ITERATION. 

TllE  FINAL  LISTING  CONTAINS  A  TABULATION  OF  THl  ENURE  POTENTIAL 

well,  these  data  are  d>  the  turning  points  and  energies  form  the 

IAS!  I P A  ITERATION.  (2>  THE  DIFFERENCE  TO  THE  INITIAL  RxR  POTEN¬ 
TIAL  AND  (5)  THE  CORRESPONDING  STANDARD  FRROR  Of  THE  POTENTIAL. 

IN  ADDITION,  IT  CO-IFAINS  THE  28  INNER  AMO  99  OUTER  EXTENSION 
PJINTS  r ROM  THE  EXTRAPOLATION  MITIOD  DFSCKIUED  ABOVE.  TllE  28 
inner  extension  points  are  equally  spaced  in  r  between  rlimi  and 
The  INNERMOST  RXR  Turning  POINT,  AND  THC  99  OUTER  EXTENSION 
POINTS  ARE  EQUALLY  SPACLD  IN  R  UFIWEEN  Till  JUTERMjST  R*  K  TURNING 
POInT  Amo  PlIM2.  all  UNITS  ARL  ANGSTROMS  and  RECIPROCAL  clnti- 
’’ETERS. 


The  print  OjT  CLOSES  WITH  a  RLCOM  lENDtD  St T  Of  INTEGRATION  LIMITS 
R-Ill  AID  UMAX  AS  JIT  A I 'IIP  I  I  FHL  IPA  PRUClDJRt.  T  Ilf  T  SHOULD  RE 
use o  in  tie  following  rjns.  if  is  followed  jy  a  summary  nr  the 
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233  C 

234  C 

235  C 

235  C 

237  C 

2  33  C 

23?  C 

24  J  C 

241  C 

242  C 

243  C 

244  C 

245  C 

246  C 

247  C 

243  C 

249  C 

253  C 

251  C 

252  C 

253  C 

254  C 

255  C 

256  C 

257  C 

258  C 

259  C 

263  C 

261  C 

262  C 

263  C 

264  C 

265  C 

266  C 

267  C 

248  C 

269  C 

273  C 

271  C 

272  C 

273  C 

274  C 

275  C 

276  C 

277  2. 

273  3. 

279  4. 

283  5. 

281  6. 

282  7. 

283  8. 

284  9. 

285  18. 

236  C 

287  C 

288  C 

289  C 

293  C 


ST»‘|DAHD  LPRORS  OF  ALL  HERAT  I  O'iS  AI|D  A  TAHLF  OF  THE  DIINHAM  C  OF  F  - 
riCIElTS  J  1  T  H  A  C  OR  R  F  C  T  L  D  VALUE  OF  Y(0,.l>  5JCM  THAT  THF  POTLNIIAL 
•UNI'IJH  0EF1NLS  ZERO  LNLRGT. 

THIS  COMPLETES  the  printed  output  fur  one  electronic  st«.tc.  if 
data  r  ir  Tim  than  onl  state  are  incljdld  II  1 h l  input  deck,  the 
ABOVE  1JTPHT  IS  REPEATED. 

The  FOLLOWING  COMMENTS  APPLY  TO  THE  PUNCHED  OUTPUT  OF  RAR. 

TF  I>»|R<R  =  1  AtlO/Uk  IPllPAsl.  A  DFCL  IS  PUNCHED  WHICH  15  TAILORED 
Tl  SEriVE  AS  INPUT  TJ  JTHFK  PP.JGRA1S.  ML  UNITS  ARE  ATOMIC  NASS 
UNITS  (CARBON  SCALE),  ANGSTROMS,  OR  RCCIPROCAL  CENTIMETERS. 

FOR  IPNRKR=1  JNE  OBTAINS  THE  R K K-POT E  IT  I Al . 

FOR  I?NIPA  =  1  ONE  OBTAINS  T  ‘It  IPA-*OTE  IT  I  al. 

THE  FIPST  CARD  CONTAINS  THE  RCDUCED  MASS  OF  THE  MOLECULE 

(AND  EXPRESSED  IN  ATOMIC  MASS  UNITS,  C  AKRON  SCALE)  AND  IC'JDE  IN 

FORMAT  36X,Dl6.?,16X,A4. 

The  next  CARD  reads  NDUN,  ( J‘l<  I  )  .  I  =1  .1  1)  III  IOrMAT  1115.  THE  NDUN 

VALUES  OF  J'l:  Nl,  N2,  N3 . SPECIFY  THL  HUMMER  OF  DUNHAM 

COEFFICIENTS  Y(I,1),  Y ( I  ,  2 )  ,  Y(I,i>,  ....(AS  EXPLAINED  AHOVE) 

Til  F  NEXT  CARO  CONTAINS  DE  A>|0  TUf  IN  FORMAT  2D15.8.  DE  IS  THE 
FnERGY  SEPARATION  3ETWFEN  Ti|F  HOT  I  fill  IT  THF  ROTATIONLFSS 
POTENTIAL  UttL  OF  THE  FLFCTrONIC  STATE  UNDER  STUDY  AND  ITS 
DISSOCIATION  limit.  TOE  IS  Tllf  ENERGY  SEPARATION  RETWFLN  THE 
BOTTOM  OF  THF  ROTATUNIESS  POTENTIAL  UELL  01  THE  NEUTRAL  JR  IONIC 
ELECTRONIC  STATE  JNUER  STJDY  A«D  1HL  V«3,  J=H  LLVEL  OF  THE 
GrDJMD  electronic  state  or  THL  NFJTrAl  MOLECULE.  note....  if 
ILECTRONIC  state  jnder  STODy  is  ttsllf  the  ground  STATE  OF  THE 
NEUTRAL  MOLECULE,  then  T0L»-T(3,3>  . 

The  next  card  CONTAINS  I  IN  FORMAT  1 3 ,  JHICH  IS  THE  NUMBER  .of  r 
and  POTENTIAL  ENERGY  PAIRS  TO  FOLLnu. 

THE  NEXT  n  cards  CONTAIN  the  R  and  potential  ENERGY  PAIRS  with 
TWO  PAIRS  PER  CAPO  IN  FORMAT  2  D  1  6 . 9 , 4  X  ,  20 1  6 . 9  .  THE  DATA  ON  I H  E  S  E 

cards  is  that  tarjlated  in  ihe  tirst  tuj  columns  of  the  third 

OUTPUT  LISTING. 

this  completes  the  punched  output  Fur  one  electronic  state,  if 

OATA  FOR  MORE  THAI  ONE  STATE  AML  INCLUDED  IN  THE  INPUT  DECK,  THE 
ABOVE  Ojrpur  IS  REPEATED. 

DIMENSION  KIM5(2) ,ZIMS(2) ,NFI (2) ,1 JUT(4> .IllEADt  3d) 

COMMON/ RP0/R1 (25 >,PE1 (25) .NEXT 
CnriMOII/YD/YDH(2U.13),lM(1P) 

CO‘|*1  )N/FC/f(1t).3(11  ),RE,RAA,PUB,KFIT(2).KUl*T(4> 

COMMJN/E X/EV(921 ),UV(921),M 
DATA  KIMS/4HC*12, 4)10  =  16/ 

DATA  II F  T  /  2,  4/ 

data  LOUT/  8.  6.  8.  10/ 

data  7  I M  S /  I.U.  3.997622165/ 

RKR  IISES  THE  FOLLOWING  TACTORS  I  OR  CONVERTING  BITWECN  PASS  SCALES 
Ai|0  DIFFERENT  PHYSICAL  UNITS. 

Z I  MS  ( 2 )  IS  15.97491464/16,  WHICH  IS  TllE  MASS  OF  OxYGI  5  JN  THE 
C 6 k H  IN  SCALE  DIVIDED  THE  mass  OF  OXYGEN  ON  the  JXYGEN  SC»LE. 

FAC  Nil  i  =  i)RT(H-OAR*AV  IGADROS  NUMi)ER/(4»PI»C>>=1l>»«8 


3 
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PPCCRAH  K  A  If  7X/7A  *'PT=i.  *<-CU'.C-  A/  -  /  H/-0,-9;  F*' 

00=-L3NG/-CT  .  AE  G  =-CC*lf<Cf,/-F  I  XE  O.CS  =  USE  8 /-F  I  X E 0  ♦  0 B=  TB/  EH/  r  l  /  FR/--Q/  »C/-:T*R 

FTN5.0B.  j;  -  '• 


1 

2 
3 

A 

t. 

6 

7 

R 

G 

1  0 
11 
12 
1  3 

1  A 
11 
1  6 
17 
1^ 

19 

20 
21 
22 
23 

2  A 

25 

26 
27 
2- 
2- 

3  C 

31 

32 

33 
3A 
31 

36 

37 
3  ■ 
3' 
AO 
A  1 
A2 
A3 
AA 
A  1 
A  6 
A  7 
AC 
A  9 

50 

51 

52 

53 
5  A 
35 


FRC68AH  H  A I 

C  N-lnltl  :t  i;  D‘C  .3-2 

CIFENSIC’,  ZIHS(2  I  iU  T  (2).LCM(A)  ,IhEAD(3‘  ) 
CCHHCN/RPW/°l(25>*PCl(2S>.f.EXT 

ccpp:N/yo/rnHi2o  ,ic  >  .i^no  > 

COHHCN/FC/F( :i 1.HC1 1 > ,cr ,R AA.oHH.KF: k;i ,kcl,t  ( A  I 

CCHHf.N/EX/EV(921>*LV(S?l)*H 

CHARACTER  K!C:i2»«A 

C  A  T  A  (KlHSCI»,I=l.21/»C=:2».*C=lS*/ 

CATA  NFT/  2 «  A/ 

CATA  LCUT/  C •  6,  fc  .  I  0  / 

CATA  2 1  M  S  /  l.Q.  3  .S«-^6f2165/ 


c  par  uses  the  fclcuilg  factor:  for  cc\vert:ng  r  f  t  w  f.  e  f 

C  PASS  SCALES  AND  C I F  F  EP  f  f.T  PHTCICAL  U’.  i  T  S  •  Z1*'S<?»  " 

C  15.S9AS1A4A/16.  WHICH  IS  T  HF  "ASS  'F  OXYGf f  CN  TM  CA  BIS  TCAL 

C  CIV1CE0  PY  THE  PASS  CF  OXYGEN  ON  ThE  OXYGEN  'CALE. 

C  FACf.UK=SQRI  <H- E  AF  •  A  VCGA  OP  C  S  f.UHBE 1  /(  A  •  P I  »  C  )  I  •  1  0  •  •$ 

FACNUH  =  A.1CV-.GA5A6 

C  . READ  16  INPLT  C  A 1  A 

10  READ  lCS.ITEST 

IFCITEST  - E  Q - C >  STOP 
PEAO  110*1 HE  AO 

READ  111  ,IIP.S,7HAS1»7PAC2.IC<'0E 
"F  (CIMS.Nf .1  I.ANO.  ( IIHS.NC.I  I  )  I  I  H  '  -  1 
C  . PUT  RCCUCEO  HASS  INTC  2  HU 


ZHUZHAS  1 

IF(2HAS2.GT.,  .»  ZHL:ZHA51«ZHAS2/IZHa:1*/haS? ) 
2HL-2HU*2IHS< 1 IHS> 

FAC=FACNLR/3CPT(/HU> 

CALL  Y  OHF 1 1 < 31 
HE  =  YCM(1,2» 

RE  =  EAC/SC“MHE» 

READ  U2.0E,  E 

C  . CALCULATE  YTu 

A2=-YCH(2*2>*YCH(2,1 > / ( 1 2  .  C D* 0 • B'  > 

YCHI1 *1 )  =  (Bl ♦  YOrM  3* 1 »  I /A  .OC*C ♦ A2. A 2* A2/BE 

HEAD  113,WFIN*VINC 

PEAO  10S.ICEFC 

READ  113*RLH1 *CLM2»NEXT 


C  . READ  EXTRA  EXTENSION  DATA  IF  '.ECESSA:Y 

IF  (NEXT. LE. 25)  GC  TC  20 
PR  I N  103 
S'  CP 

20  IF  (NEXT .LT.l I  OC  TC  AC 
CO  30  1  =  1 *NE  »T 
30  PEAO  10A  ,R1 ( I  I *RE1 (  I  > 

AO  PEAO  Ub.(KF:T(I >.I=1*2>«(K~UT(I >*:=1*A> 

CO  SC  1=1 *2 

IF(KFIT(  I  1.EC.01  KF  I  T  (  I  >  =  NFMI> 

IF(XFIT( r l.GT.ll »  KF I T (I >=1 1 
50  CONTINUE 
,  CC  6C  1=1. A 

IF  (XGUT  (  I  l.EQ.C  1  KCLT  (II  =  LCUM!) 

60  CONTINUE 

READ  109*  IPNfKfi,  IFMFA 


N> 
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PROGRAM  H  A  I  f. 
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cpt  =  o  ,-cuno=  */  s/  m/-o.-dc 


F"  5 . 7  ♦ '  • 


I 


i 

t 

56 

c 

57 

5r 

5® 

c 

60 

61 

62 

63 

70 

64 

PC 

65 

66 

c 

67 

6  J 

6' 

70 

90 

71 

72 

73 

c 

7  4 

75 

76 

77 

c 

7r 

c 

79 

c 

no 

c 

8  1 

c 

82 

95 

83 

8  4 

P  5 

86 

c 

«  7 

a- 

c 

8° 

c 

90 

c 

w 

9  1 

92 

102 

93 

1  03 

w 

94 

1  C  4 

•  5 

1  C  5 

96 

106 

o 

97 

9e 

9® 

107 

o 

100 

101 

102 

V 

10  3 

ion 

104 

109 

105 

no 

106 

in 

10  7 

112 

1C" 

113 

109 

114 

11  0 

115 

111 

116 

112 

113 

117 

11  « 

115 

11" 

HE 

119 

117 

120 

118 

121 

ns 

. f-ur  CLl  7  fit  INPUT  DATA 

HIM  114,IhEAC 
PRIM  H^tlC'Dt 

. F-1M  IHF  PASSES  A  f  D  THE]-3  UM*S 

IF  </HAS2.Lf .0.31  GC  TC  7C 
PRINT  116 ,KI  PS <1  I  PS  1 ,/PASl */HAS2 
CO  TC  83 

PRINT  11  7,tC  PSC  CPS  l./PA' 1 
PRINT  13c,Of.,'E 

PRINT  lCfc.NLPl.RLPS.VFIN.VINC.  I S  PPG,  I  Pf.P  K  ?  ,  l  r  b  \  ■  A 
........  ...Pr-  I  NT  EXTRA  E  Y  T  E  N  S  T  C  i‘.  DATA  IF  MCf  S  r  A  r  Y 

IFCNEXT.L  T.l  I  GO  TC  Vu 

FRIN  137 

FPINT 

CALL  KKP I YFJ r. ,v: NC, 1 CPPG.FAC » 

CALL  YChPI 1 t  > 

PRIN  1J4,ImEAD 

. EXT  RAP  CL  ATL  F  r  A  END  POINTS  OF  PCTE'TIAL  FL'.C'I'N 

CALL  EXTENOdLHl  ,PLP21 
P=2*VM2C 

TFCIPNR KP.NC.lt  GO  ‘C  95 

PUNCH  10  2,1 1  PS  ,/HAS  1  ./HAS2 ,/HU, CCOOE 

CALL  YOHPll CIPNRKP 1 

PUNCH, 112, CC,TC 

PUNCH  119, P 

PUNCH  120  ,  IE V<I > ,UV< I > ,1 =1 ,« » 

F®  I  N  ;  121 

CALL  FIPAI/PU.CEl 

CALL  Y0HP1U0) 

IF  <1PMPA.NE.11  GC  TC  1  i. 

PUNCH  10  2 ,1  I PS,7PAS1  ,/PAS? ,7»U.T CODE 
CALL  VOHP1M  IPMPA  > 

PUNCH  112.CE.TE 
PUNCH  119, P 

PUNCH  120,<CV<II,LiV(!  1,1-1  ,H> 

GO  Tf  ifl 

F  OR  H A  T  <I4,101b.&,l«X,A4 * 

f ORPATO 7P0TCC  PANY  EXTPA  EXTENSION  DATA  PCIMSl 
FORHAT  <2016.91 

FORPAT  <  /  /  6  H  CE  =  ,C:t.7,KX,‘H  TE  -  .CIMT/l 

F0RPAT<2X,«l:PI  r  •  ,F  S . 4  ,  •  L  I  “  2  =  *,f<.4,»  YFIN  -  *,F7 .2, 

♦  •  VINC  =  »,F7.2//»  1CF-FG  =  *,:i,»  IP',»K  =  r  «,M, 

♦  •  IPMPA  =  *,11/1 

FORPAT  <•  the  FOLLOWING  DATA  ME  ■ F  INCLUDED  I P  T  P  E  l F A S T - ;  OL A  ‘  l ' 

♦  FIT  That  CETEHPInED  the  COEFFICIENTS  CE  the  X  TEN  -  •  /  • 

♦  SICN  FUNCTICN  TC  THC  ®K®  TUP.’MNG  POINTS..*// 

♦  I0X  ,  *fl«,  15  1, *PCTENT : Al  EfERGY  •/> 

FORPAT <4X,1FC16.9,7X,D16.°/1 
FORPAT  <2121 

FCRPAI  <1  A41 

FORPAT<I4,2DlE.9,J2»,A4l 
F  CR  P  AT  <  20 1 5  •  •  1 
FORPAT  <2Pb. 2, 121 
FORPAT  <2X,l"  A4/2x  ,ltA4  1 

F3RPAT  </ /•  -HE  CCDE  NLPRFP  FC^  THIS  STA’E  »S  *,A*1 
FCPPAT  <// MHE  PASSES  CE  THE  TWO  AT?  PC,*/*  liArEC  EN  *,/-4.«  A  r 
♦1PC16.9,*  AC  *,0I£.0/1 


FCRPAT<//*  TK  PtDLCED  PASS  CE  ThC  two  ATCP',BA  EO  'N 
♦  IS  *  «  1 r  0 1 £.91 

Fo® pa  -  u  c  :*. i 

FCRPA  <; 11 

FORHAT  <2016.", 4a  tICIG. 

F  CR  PA  T  <  *  HEGINMNC  CP  INVERTED  PERTURBATION  APF'CACH  */l 
ENC 
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SUHi  CUT  I  f.f  RKF  7»/?4  CP  J  =  P  ,  -  CL*.C  =  A/  *V  H/-n,-')C  f  ?.’♦  ; 

0C  =  -L3AC/-CTtAAC  =  -CC‘,«CN/-F:*EC,CS=  LS  t  f  /-FIxCCtUE-  '11/  5  B  /  -1/  f=/-C/  •  -C i 
FTN5.0B. 


1 

1 

3 

4 

5 

6 

7 


1  0 
1 1 
12 

13 

14 

15 

16 

1  7 
18 
1J 
20 
21 
22 

23 

24 

2  5 
26 
2  7 
28 

29 

30 

31 

32 

33 

34 

35 
3h 
37 
3" 
3- 
4  C 

41 

42 

43 

44 
4f 
46 
4  7 
4  ** 
49 
5P 

51 

52 

53 

54 

55 


suer  cut : ne  rkr ( vf in .  orr c. icpfg.fac > 

C  PAR  PPCCE0L8E 

01  RE  7.  SI  06  HU13l»,Tf  MP(4CC  »,Or>  (J<*  »,-Z<31 ,17(31  ,XCC  •*  1  ,Y.7<  I 
COLBLE  PxECUICN  AG  AUS  (  3  ,  I  •  XGAU  3  (  3  ,  -  » 

CCPPCl;/Y0/Y0HC2li  ,10  1  ,  I  P(  10  1 
COPPCN/E  X  /  £  V  <521  1  »UV  ( -721  >  *- 
CCPPCN/RX/PF  1M4 10  I,  -  P  AX(4C  ’  1  ,U<40  3  » 


C  . INTEGPATICN  CCf.S  T  ANT  5  <  ABl  OHC  k  I  V  •  F  .  «  ?  1  » 

c  the  xgals  apl  the  apsiccisas  and  agals  av  t h r  weigh’ ".fi  r»n' 

C  FCR  A  CAL5SIA'  lArrCPATICf.  OF  PT’-FN’S  WHr  r  F  H  = «  «'  [  - 

C  4,6,  OR  -  CEPCNO.NC  CN  THE  OFGREE  CF  7LCCFS  CF  ’Ft 

C  ITERATION. 

OAT  A  XCALS/0.C19f55-71?512323i>,.,.C  3  3  7  C  52  4  2  -  •,  r  4?  4  C  r.  , '  .  6  '-4  '.1  -44  ' 


♦0297400, 

♦  C.10  16667612 9 2IP6DG  ,  u  .  1  6C  395  3  OF  76  6"  6  0..  ,  .  .  3  2  :Cr47t:'7r7.n., 

♦  0.23  7223  79504  lf36D0.C.3-f69C  4  C6  .5->4:.o:  .O  .6  6  «•  95  *  5  1 1  V-  e  «  2%Dr.  , 

♦  C.  4  O'  20  26  76  7  521  75CC  .  3 .6 1 c  3C- 5  93.  4 1  59i  0 "  ,7  .  2  3  1  3  6  F  1 5 5  7 7  2  0., 

♦  C  « 58 1  7 1 7321 24 7 i25D0  ,0  .F  3C  60  46°  32  3  3 1  3  2Du  *C  .0 C  ,0  •  76  2  7 6  6  2  4  95f  6  4 C  r  , ' 

♦  0.9662347E71C1576DO,C.3DO,0.tJ9“I3323''7C6J14C','J..‘CC,''.rn3,7.37”’l‘,<* 

♦  '■-28248  768  CO  ,  ' 

♦ C .OCO.C.CCC/ 

CAT  A  AG A  US /C  .05061  42  66  14516fDG  ,C  .  0  ri  36622461  -  7  3  0  e  HO  %'  .173  274.237  ? 

♦  2  7  C  C  , 

♦  G.ll  1190  51  722668  70C  ,  7.1  00  3F.C  78652  407  .  t„  ,'  .  32  6  C7  ."  5  7  74  3  1T  7  '0. « 

♦  C.156853  3225  3<*S4400  ,.7.2  339Sf  c67  6  34rOC  ,.  .  32  ‘C  72  r  7  74  3  1  :  7  'OS  , 

♦  C.lf.l341Q516“51,.lC0,C.I33556c  672  -  F  ’4r  CO,  .  2  7  3'274;r«;r  F  78  '17.:  , 

♦C  .19l341«91ci916100  ,C.16„3HC  766524C  7C03 ,0  .cC,.  .  le6>- f  3-'C  Vi  «4T  , 

♦  0.C956622461  19585C0  ,0.000,0.11  1190  51  72  26tn 70 ' ,C. 'CP ,;  .  '1  ,5.  c  '  '  !  « 
♦2661 451HH00 , 

♦  C.GCJ  ,0.000/ 

CATA  82/101,-1,61/ 

DATA  12/8,6,4/ 

C  ..CALCULATE  lEPPCTHt  V>  AND  U(ThE  Gvl  F7.j  f  A  C  F  TLPNVC  p  T *. T 

F  =  V F .N/VINCV .500 
P=F,2 

IMF. LC. 400  1  GC  TC  ICO 
IVINC=100./(VF:K/3. ->♦!.) 

VINC=1./FL0aT(JVINC> 

P  =  VF  I  N  /  V  1  AC  ♦  2.5 
PRINT  29  I , VI FC 
100  TEPP<1>=0 .250^0 

Lit) -POL  YN ( T E  RP ( 1 )  ,  1  ) 

CO  110  1=2,- 

7MP=FL0AT(I-2I»VINC,0.5DC 
TEPP (I >  =  T  PP 

110  L  ( I  >  =  FCL  YMTPP  ,1  I 
STEP=.9O0 
FR I NT  294 

C  CCPPE NCE  FINDING  TURNING  PCIMS  BY  INTEGRATION  AFC 

C  ITERATE  TO  A  BUILT  IN  LIPIT  CF  F^ECI'ICN 

SV1R=0.0 
VTR= t .000 

'  SETR=PCLYM  YTR,l> 

IF  (ABS(SETFl.LT.l.0-6»  6C  T 0  13C 
VTR=-YOH< 1,1 1/YDHI2 ,1  1 


V 


■t 

* 
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SU8PCUTI1.E  PKP 


74  /  74 


cpt=c  ,-cuM)=  */  : /  */-n,-o 


56 

57 
5a 

59 

60 
61 
62 

6  3 

64 

65 
6< 
67 
6' 
6  ' 

7  0 

71 

72 
7  3 

74 

75 

76 
7  7 
7 

7  • 
a  0 
4  1 
6  2 
d  3 

-  4 

#  5 
?  6 
fl  7 
8H 
8‘ 
s  a 
°  l 

92 

93 
74 
°  5 
°  6 
°  7 

98 

99 
10 
101 
102 

103 

104 

105 

106 

10  7 
10- 
10*. 
110 

11  1 
112 


£TP=PCLYMVT-  .1  1 

12C  IF  <  AHS<  E  TP  1  •  I.  T  .  1  «  0  C-7  >  GC  T  <■  IV 

XTP  =  3VT9-CSFTP •( SWTF-VTP  1 1 /(SETe-E's  1 

SVTR=VT« 

vismiH 

SETP=£TP 

£TP  =  FOLY-.(XT  <•  ,11 
GC  'C  120 

120  VMIM  =  VTP-C.S 
DO  2-0  1 =1 t‘ 

V4IM9P1  f.S*L  .5 
F  EGV  .CC 
GEGsO.OUO 
L  T  =  1 
GG  -C 

:fc=  ' 

140  HS  =  VPI6*(TEHFU  1-VPI7«)*S*  EP 
IF1LT.GT.31  GC  TO  ItO 
FG=H7(LT  » 

KM:F0-2 

A  =  (HS-VM!M/FLCATCHC-1  I 
CC  160  JM.PO 
LV(JUVMIN»Fl3A‘(J-1>*A 
E  V<  Jl  =POL  IKIUIJI  «  1  > 

IF  UGO.EO.jl  BI  «  Jl^PCLYMUVC  J>  .' > 

C  EN  G ( 1  )  =  U!  >  -£  V  <  J  1 
L  W(U  1  =  1.  OC  /SCPTC  AES  (Of  Mil  )>  > 

160  1VIJI-B1  (J)*UV(J) 

FSLP-UWt 1 1*4 .CG*UVU'C-I 1  ♦UV(“Q» 

GSO  -  E  V (1 )  ♦  4  00 • £  V 1 PQ- 1  1  «  EV("0> 

CO  1  70  J  =  2  *K‘  ,2 

fsinFSur  *  4.to*cv(j)  ♦  2.d;*uv(j*i> 

170  GSLP  =  GSUP  «  4. 00 • E  V ( J I  ♦  2 .OC • F V < J* 1 > 
FEG2-A*F3LB/3.D3 
6E62=A*GSUM/3. CC 
IF  (LT.GT.lt  GC  TC  750 
GO  TC  260 

1-0  I  Z0Q  =  ( LT - 1 1/3 

IFU20C.GT.31  I20C=2 
N6AS-I2( I70C1 
CO  190  J=i,’.GAS 

KG<J1UR5-VPJM«XGAL3UZD0,J>  ♦VMlf, 
lc0  LV(Ul=XG(Jl 

£PSH  =  T  E  FF  (  I  I  -XGd.GACI 
IFlEPSM.LE.G.l  GC  TC  270 
CO  200  K  =  1  ,f.CA5 

2  C  0  CEMJ(K1  =  PCLYM  TEPF<  1 1  ,1  1-PCl  YNCXGlKt  ,1  1 
IF  UGD.NE.01  GO  TC  220 
CO  210  JU'NCAC 
210  ei <J1=P0LYMCKJ1 *2  1 
220  f  SUP-0 .0  00 
GSIP=0.000 
CO  240  JU  ,7  GAS 
IF  <OENO< Jl.LE.C . 1  GC  C  770 
*G(J1-AGAUS( i/COfdl/SOPT ( DC  5  0 ( J I  1 
YG(JI=BI <UI*xG(JI 
FSLP=FJUB*XC(J1 
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113 

240 

GSLP=GSUP*YG(  Jl 

114 

H5l=l*S-VPlto 

ns 

f  EG?=PCV-f  SI'*' 

1U 

GEC2=eSV*GSL  ft 

it  7 

C 

CHtCft  IF  ITf  RAT  I  Cto  C'irC«IC\  \Z  “E 

up 

c 

It  PAY  HAVE  TC  PC  A0JI/S7 1 0  If.  ST  AT£“f  NTs 

m 

c 

FOR  PP  CPC  P  CC7.VfftGf7.CE  UHC7.  F-tA  <’N  OThf:  ft  ACMJ  f  f  ‘ 

12  0 

250 

IF  <  tf  CG27fEr.».LE  .5.D-1Y  1F0  =  1 

12  l 

IF  I <6CG2/Gf G 1 ,l£ .5.0- 77  ?GO  =  l 

122 

IF  IABS1FEG2/FCG1>.GT.:.°>  ifo  =  1 

12  4 

IF  tAHS(G£G?/G£61  ).GT  .C.<,7  IGO-l 

124 

260 

L  7 'L 1 ♦ 1 

125 

FC61 -FEG2 

12  6 

GC61 =6EG2 

12  7 

IF  (TFQ.EQ.C  >  FEG  =  f  EG  ♦  Ff  02 

126 

IF  IIGO.EQ.il  GEG  =  GEG  *  GEG2 

12  *3 

IF  l(rF0.7jE.2».A7.D.<lGD.*  E.C1)  6C  T 272 

150 

VP  Ito=HS 

151 

C 

IF  1 HT  t  R  PCQI A  T  £  EVALUATICt.S  OF  KLEIN  ACT.rf  lATEGRAL" 

152 

c 

ARC  TC  Bt  GUT  PUT  TH£f.  WfttTC  CLT  TftC  FEG  AKD  GfG 

133 

IF  t  ICPFG.tof .0 >  PRIM  2S5.FCG.GCG 

133 

IF  UT.LE.207  GO  TC  14k, 

135 

PP1HT  257 

136 

RETURN 

137 

270 

F =f EG*F  AC 

13ft 

€F  =GEG/F  AC 

136 

RHAXII  >  =  SQRT  tF»F*F/GF>*F 

no 

FPItotII=r'PAXtI>-2.Ci.*F 

141 

C 

WF  l  TC  CUT  THE  TUP».!7«G  POUTS  Af.D  THE 

14  2 

C 

CORRC.'PCNDI  AG  K  L  £  I  7.  ACTION  INTEGRALS 

14  3 

TEPPl I  1:1  EPF  t  I  )-D  .5 

14  4 

Fft  I  to  T  276  ,  7E  ftp  1 1  >  «Ut  I  >,BI  ttoGAS  >  ,®PIM  I  >•  ;PAX  1  1  >  ,F  tCF 

145 

26  0 

COto  T I NCE 

146 

C 

147 

RCtURto 

1  4  ft 

261 

FOPPATfl  V»*VF17.  •  A7.D  VI7.C  GIVE  “OPE  TMAto  4  Ot  UFMtoG  F  i"  I  *  T  P  A  I 

14  A 

♦  --II.CRfPEM  PAS  HEEf.  ADJLSTEO  O’  VI'.Cz  *,F 5.D 

150 

26  4 

FCflPATf  /  •  FCTftoim  Gf  7.  Eft  AT  E  0  BY  =  ftp  IE  AS  F  CL  l  C  V  I  •  /  / 1  ->  *  , 

151 

♦  •POTftotl AL», 10  A.  »Itof P f I  AC  *  ,r‘«.  'KL(  t to  ACTlCto  1 7.  T  f  C 1  Hf'/'  V 

15  2 

♦  f  4  E  7*f  ft  GY  •  *  1  3  X  *  *f  7.f  RGY4»15k»*FPI7  *  ,  1 .  X  *  #R  ft  AX*  »  1  F  Y  ,  *F  •  %  1  <  » ,c’ '7 

15  3 

26  5 

FORPAttfcX.'f  EG  =  GEG  = 

154 

2^6 

FORK  AT  11  X  *F5.2  »F  15.4  ,022.°  .F  16.  >  »F  2’ .5  *  5X  ,  EOTC  .<•  > 

155 

267 

FOR  PA  T<*  LT  REACH  AA*P7“U“  VALUE  OF  20--Pxa  ItoTCCFA’lf,  I ’ r  -  A 

156 

♦TICto  toOT  L 1  ft  EL  Y  TC  SUCCEED.  •) 

157 

EtoC 

1 

FUNCTICto  FCLVMX«M 

2 

C 

SLBPCUTIf.C  FCF  f-ftf 

SYSTEM 

3 

C 

SOLVES  F2-  ROMS 

of  p<“ly'.--“iai  Fu-.c’r  '■tor  'c  '<f! 

4 

C 

FLLYto=5Lft  FCR  1=1 

T  C  I  “<M  OF  Ytr»‘.  l*F**tr*l) 

* 

CGPMCto/YD/Yl2C  ,1 i » * I  ft 1 1 

cn 

6 

POLY*.=0. 

7 

J=IMM 

i 

IF  tJ.EQ.07  R  €  T  U  P  to 

<4 

=  1. 

10 

CC  10  1=1, J 

11 

F0LYto=  PCLTto  ♦ Y  t 1  ,to)*G 

12 

10 

S  =  S*X 

1  3 

SETUPN 

14 

EtoC 

r  y»o..n  r-n 
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1  SURPOUTINE  CXTfND(PlHl  l»-2> 

2  C  S1BROUT1N  FCR  RKP  STSTEH 

3  C  PCUT1NE  FCR  FINDING  lNNE°POST  20  POINTS  A»C  CUTrPPCST  in  or;. 

4  C  OF  POTENTIAL  FUNCTION  BY  E  X  T  P  APOl  A  T  I  ON  .  'US  e  P 1  T  INF  AL  *  1 

5  C  REOPDEPS  THE  POINTS  DEFINING  THE  POTENTIAL  FUfCTICN  IN  AS  Cr  N  ET 

6  C  PAGMTIUOE  OF  R  (THE  I  NT  EP  NUC1E  A®  OISTANCE>. 

7  COFPCN/Gl/X(a2fl) .2(828),! 

e  COPHON/PPW/P1 (  25  > ,  P  E  1 (25), NEXT 

9  COHMCN/FC/F  (  11  >  .R<  I  1  >  ,  °  E  •  R  A  A  .  P  RB  .  Nl  r,  ,  N  PUT  .  L  PUT  <  »  > 

10  C0FPCN/EX/XG(92l ),YC(921 )  »  N 

11  COP^ON/PX/PHIMAPO  >,RRAX(40C),U(40C) 

12  CO  10  1  =  1  .11 

13  ic  n< i i  =o. 

14  C  . SFCCIFIY  LIMITS  CF  FIT  FUNCTION 

1  5  PAA=FMIN(\>  -  l.O-R 

16  BBB  =  PPAX(M  »1.0-P 

IT  C  . FI»  CF  THE  INNER  TUPNING  POINTS 

lo  L=NI\  *  2 

1-  DC  2C  I  =  1,1 

20  X  (  I  >  =  RHINE  N - I ♦ 1  * 

21  20  2(I)  =  AlOG10(U<N-I*l )> 

22  IF  (NEXT. EG.})  GO  TC  30 

23  CO  25  1=  l.NEXT 

24  IF  (P1(I  I.EE.PAA)  GC  TO  2C 

25  1=1*1 

2  6  »<11=R1<  I  I 

27  2(1)=  A10G1C (PEI (I  )  ) 

28  25  CONTINUE 

29  3C  PRINT  92.RAA.MN 

30  PRINT  93 

31  C All  G130(l> 

32  C  . FIT  CF  THE  OUTFP  TUPNING  PC!NTS 

33  1 =NCLT  *4 

34  CO  40  1=  1.1 

35  X(I)=P“AX(N-I*1) 

36  4C  2(1)  =  U(N-I»1  ) 

37  IF  (NEXT.EO.P)  GO  TC  60 

3-  CO  5r  I  =  1  .NEXT 

39  IF  (PI  (I  ) .IE .RBB)  GC  TC  50 

40  1=1*1 

41  X(1)=R1( I  ) 

42  2(1)  =  PEI  (I  ) 

43  5C  CONTINUE 

44  GC  PRINT  B4.RRR.NCUT 

45  PRINT  95 

46  CAtl  Gl$  0 ( 2 ) 

47  C  . FI-A1  FIT  CF  THE  PPTEN'IAl 

4  R  F  6  =  (PMIN(N)  -  niKl)/?:. 

49  CO  70  1=1,2' 

50  XHC=R1H! .F1CAT CI »  »F6 

51  XO( I )  =XPC 

52  70  TO ( I )  =  FUNC (0  iX»C  ) 

53  00  PC  I=1,N 

54  J=N-I*1 

55  x  =  20*1 
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56 

HOCK!  =  rMMJ> 

5  T 

PC 

Y  0  <  K  1  =  U<JI 

5A 

CO  95  1=1 . N 

59 

K  =  fc»I*?l 

60 

X0<K1=  PHAXU  » 

61 

65 

Y0<K1=  U ( I > 

62 

K  =  N  *21 

63 

XO<K>=RF 

64 

YO«KI=  0.000 

65 

r  6  =  (RLY2  -RRAXtM  >/9=>. 

66 

0  91  1=1.99 

67 

x  =  2*1  *1*?1 

6^ 

X9C  =  RMAXCM  *FLCAHI»«F6 

6° 

X0<K>  =X90 

TO 

90 

Y0«K>=FUf.C<0,X“0> 

71 

FCTUPN 

72 

92 

FORPAT ( •  FIT  OF  IKMR40'T  T'jPIM'G  PC:'<T3  F"c  r  X  "  3  A  <=  C  l  A  *  I  \  9  IT) 

73 

♦WITH  P  IfSS  THAN'  ’.1PD15.7,*  URV.G  •  7  /  *  A  FU'.CTI''*  rc  >HC  F  *  "* 

74 

♦FXP<R<1)*H <2 >«X.BIS)*X»X.....H(K).X. «(«-!>)  V  I  TH  »r‘  V’H 

75 

93 

FCR9AT  (1  2  X  ,  *  c  •  ,15X,*LGG(LCP)  l',;;x.'FCALC',lt'i,'P-Fr  •/) 

76 

^4 

roRPATC  FIT  OF  CUTfRTtT  T  (JR  I  •)  I  “iC  rd*-'5  F~o  r  X  ♦  =  A  r  r  l  A  •  I  V  4  "(■) 

7  7 

♦WITH  R  GPEATfR  T  H  A  K  ',16015. 7,*  CJI'.G  *  7  7  *  A  FLfC'IC*.  CF  '  Hf  F-  * 

76 

♦Ptl  ).fl<2)*R**<“6)*9(  3  )  *c  *  *  (  - '  K-Kt.H'Tr  •  ,  ;  2  7) 

79 

c  5 

F0RRATCirx.'L,tlHX,,U(R>,,lcXf,FCALC*,16X,*r|*FFf7) 

«0 

190 
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AD-4127  315  NUMERICAL  METHODS  FOR  THE  PREPARATION  OF  POTENTIAL 
ENERGY  CURVES  OF  D I ATO . . ( U )  AIR  FORCE  INST  OF  TECH 
WRIGHT-PATTERSON  AFB  OH  SCHOOL  OF  SYST..  L  L  RUTGER 
UNCLASSIFIED  MAR  83  AFIT/GNE/PH/83M-I2  F/G  20/10 


1  SUB**  OUT  INF  GLSO(KK) 

2  C  GENER  AL  LEAST  SQUARES  ROUMNE  TO  FIT  A  SET  CF  ».  CAT*  POTTS 

3  C  KK  =  i:  FIT  RKP  TURN I NG  POINTS  BT  L FGCf.OPf  F CLY*  f  PT *1  * 

A  C  KK=21  FtT  INNER  TURNING  POINTS  BT  EXP'-NF*. T  1*1  FL‘CT!'*- 

5  C  KK=3S  FIT  CF  CUTER  TU°N I NG  POINTS  PY  SUP  OF  C<M«  *»<-N> 

6  01  PENSION  Mil  > 

7  C0PPCN/GL/X(*2P>,2<62P>*N 

P  CCPP'N/FC/Fm>,BCU>.RF.R  AA.RHB.NFI*  «2>,LfUM*> 

•  C0PPCN/TN1AA<«4,64>»BB<64> 

IB  P=NFI*«KK> 

11  C  . INITIALISATION 

12  10  00  20  J=1,P 

13  ABU  >=0.0  DO 

14  00  2f  K=1*P 

15  20  A(J,K>=O.ODO 

16  C  ............ .CALCULATION  CF  T HE  » 

17  CO  30  1=1  »*. 

la  OUPPY=FUNCtKK,X(I >> 

1<*  DO  30  d=l,P 

20  HR(d)=  RB(d>*?(l  >«FCJ> 

21  00  30  K=1«p 

22  30  A«J,K>=ACU*K>«Ff J>*F (K> 

23  CALL  PAT INV(0ETCRP«P«1 tO > 

24  CO  40  I=t«P 

25  »C  =  I 

26  IF  (KK.GT.l)  NC=NFITC1>  ♦  I 

27  40  B(NC>  =  BBC  > 

2«  C  . ....CALCULI  ION  OF  FIT  *■  D  ST ANDA°D  rPPrr 

29  '16  =0.0 

30  00  5"  I=1«N 

31  XCRT  =X< I > 

32  OUPMT=FUNCTKK,XCRY> 

33  0El=2<t>  -  DUPPY 

34  PRINT  104, XCPY  ,?CI >. DUMPY, DEL 

35  5C  SIG=.IG*OEL*OEl 

36  S I GM A=SQF  M$I6AFLCAT IN-M>> 

3T  C  . ITERATICN  TE't 

IF  <  P.LC  .21  GC  TC  6t 

3r-  OBCH  sABSISORTlAnSCAIM.PnJ/MfM^D.-IGP* 

*0  IF  (CSIGPA.C*  .lD-3).A*JC.t  PBDH. L  T  .  0  •  7  >  >  G  0  *C  fr 

41  "  =  «-l 

4  2  '.FriKHI  :  " 

43  co  rc  to 

44  C  . .PRINT  OUT  CF  CONSTANTS  AND  ECR?'’" 

45  60  PRIM  1CI 

46  00  TC  1=1, * 

47  MI >=SORT (ARSIATI ,1 >> >*S IGPA 

40  OROR=  ABS  f M 1 1  ABB  < I >  > 

49  70  FRIM  IOJ,  I ,BHI I > . M I > ,DHDR 

50  FR IN T  133,  N,  3IG*A 

51  131  FOR  PAM  *  CONSTANTS  OF  FT  T  *  A  > 

52  1C2  FORPAM*  B(**I2,4  >  =»,'’!  p.M'-y,  “>•*:?  ER'0‘=  •  ,PI  *.*•*»«  ••MAT  ! 

53  ♦  °MS  EPRC  =•  ,0l“.  .  J I 

54  103  FCRMAMA»NL*PER  OF  ENTRIE  i  **:3,»  S-ANPA30  EeRr"  =  *,18014. «A 

55  1 P  4  F3RPAT  <1 FOJO .9,3020 ,? > 


SUBRCUTI NC  GlSO  74A74  OPT=0.-CUNO=  A A  SA  PA-O.-OS 


f*n  ;.m*-.4 


56  RETURN 

57  ENO 
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SU8KtUTi;.£  MATINV<Of.TEF“»N,M,tPV> 

PATH  I X  INVERSION  WITH  ACCr«PA\ VI *G  SCLUTtTN  Cf  II  •'.£*•  fQVi* 
lPV.C0.lt  f.C  SEARCH  F CP  PIVCT.IPV.NF.I  t  SEARCH  FT-  £•*»':? 
IMPLICIT  OCLHLC  PPECIT10N  lA-H,'-?! 

01  PENSION  IP! VCT<64  I.IM>CXP<64),lt<D£XC<64) 

C0PMCN/TH1/A<64.641  «H<64*1 > 

. .....INITIALIZATION' 

DCTERM=1.0 
00  20  J=l*». 


10 

20 

IPIVOT(J)  =C 

11 

OO  550  1=1 .* 

12 

IF  <IPV.NE.11  00  TC  40 

n 

13 

ICLM  =  I 

1 A 

00  TO  26 C 

15 

C 

n 

16 

40 

AMAX  =  0.0 

i  r 

on  ic5  J  =  i«r. 

1“ 

IF  (IPIVOTiUl. CQ.lt  GO  *C  105 

r> 

1« 

C 

FGR  UNSYMMCTR  1C  MATRIX:  A<I . Jt.Nf . A < J.I 1 

20 

c 

00  ICO  Ksl.N 

21 

c 

FOR  SYMMETRIC  MATRIX:  A ( 1 « J » .Cl .A < J* I  1 

n> 

22 

00  100  K  =  J.N 

23 

IF  <IPIVCT<K>. EQ.lt  GO  TO  IOC 

24 

IF  <ABS<AMAXt.G£.ABS<A<J.Kttt  00  ’0  103 

o 

25 

IRON  =J 

2b 

I  CLM  =M 

27 

AM AX= A ( J. K 1 

u 

2S 

ICO 

CONTINUE 

29 

1C5 

CONTINUE 

30 

IPI VOT  < I CLM)  =  IPIVCTIICLM)  ♦  1 

o 

31 

INOCXR (It  =  I POW 

32 

INOEXCUt  =  1 CLM 

33 

c 

Vw 

3* 

IF  <IRCW.CQ.1CLM>  GC  TO  260 

35 

DETERM  =  -DC  TERM 

36 

00  200  L  =  l»f. 

O 

37 

SWAP  =  A< IRC J  »L 1 

3 

A(IROW.L)  s  ACCLMfl  * 

39 

200 

A1ICLH.L)  =  SNAP 

40 

IF  <M.LE.0I  CO  TO  260 

41 

CO  250  L=l»« 

42 

SWAP  =  B< IRCu.L) 

c* 

43 

HCIPOU.L )=B< ICLM.L  1 

44 

250 

H<1CLM,L)  *  swap 

45 

260 

PIVOT  =  A<ICLM,ICLM» 

46 

IF  <K.GT .10)  00  TO  330 

47 

OCTERM  =  DCURM.PIVCT 

49 

C 

w 

49 

3  30 

A< ICLMf 1 CLM)  s  1.0 

50 

00  350  L=1 *V 

51 

350 

A<ICLM,L1  =A<ICLM,l)/P5VCT 

52 

IF  IM.LC.C 1  00  TO  360 

53 

00  370  L  =  1,M 

54 

370 

fl< ICLM.L 1 =R< ICLM.L) ZPI VOT 

55 

C 
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56 

3-0 

DC  550  L1=1»M 

51 

TF  CLl.rO.ICLP)  OC  to  5£c 

5‘ 

s«<Ll*ICL"> 

5- 

A<  LI  •  I CLN 1  =0.0 

60 

DO  450  L=  1* 

61 

450 

AfLltLl  =  Jmi.L)-»(ICL“.L  >*' 

62 

IF  IF.Lf.OI  CO  ‘0  55L 

63 

DO  500  Lsl.'1 

66 

500 

B<L  1  tL  >  =  8<L1.L»  -  fl<ICL*».L> 

65 

5r0 

CONTI NUt 

66 

:f  cpv.ro.u  retufi 

67 

C 

6 

DO  710  J  =  l.f. 

cr 

L=  ».♦!-! 

70 

I40M  =  IJ.0e*P<L» 

71 

1CLF  S  POfXCIL) 

72 

:f  < :hcu . eq. iclk i  go  tc  no 

73 

DC  705  K  =1*K 

74 

SU  AP -  A«K»I*Oh» 

75 

A<  K* IROU  >  s  A  <  K  •  I CLP 1 

76 

70  5 

6<X«{CLH>  -5  WAP 

77 

710 

CONT 1 MJC 

7- 

RCTtAl 

7S 

END 
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1  FUNCTION  FUl.CIKK.XKI 

2  C  ROUTINE  ormts  THE  LEGf\OP  pr.LY’.uMIALS  F-s  FTT^'G  ME 

3  C  POTENT  I RL  AND  CONTAINS  THE  TUG  FXTRAPOLA’  *CN  FUfC't'i  H 

R  C  THE  INNERMOST  Af.O  GUTERMCST  TURM<  G  POINTS.  Rf  JPFCT I  Xrt » 

5  COPPfN/FC/F till, Oil!  l.*E»«  AA  t  RRIt.  MN.NOUT,  LCJT  t  Rl 

6  COMMOK/EX/XI 19211 »tl <921 »,N 

T  IFliXX.LT.RAA). CR.iKK.CQ.lt)  6C  rO  SC 

h  IF  <iXX.GT.*HB>.OR.tKK.CQ.21l  GC  T"  SO 

9  C  . . FUNCTION  FOR  RKR  TURNING  PON'S 

10  NPOLY  =  6 

11  FUNC -  0.0 

12  NM  =  tNPCLY  *1 1/2  • 

13  NM1  s  NH  «1 

1 R  NUP  =  N  ♦  NH1  -NPOLY 

15  00  20  J  =  NPlfNUP 

16  IF  t  XX.LC  «XI  i  «tl  1  GO  TO  3C 

IT  20  CONTINUE 

1 A  J=NUP 

19  3G  L=0-NH 

20  LLL=  L*  NPOLY  -l 

21  00  50  K  :  L.LLL 

22  TERM  =1.0 

23  00  RC  D  :  L.LLL 

2 A  IF  (K.ca.ff)  GO  TC  R c 

25  TERM:  TERM*  C XX- Xl t M > »/ 1 XI I K> -X I t *1 1 

26  RO  CONTINUE 

2  T  TERM  =  VIiKl*TERM 

2**  SC  FUNC=  FUNC  ♦  TERM 

29  RETURN 

30  C  . FUNCTION  FOR  I  f  SEP  TURNING  POINTS 

31  6C  X  =  iRC-XXl/RE 

32  Fill  =  1.0 

33  FUNC  =  Fill  ‘Bill 

3R  00  ?C  I  :  2. UN 

35  Fill  =  Fll-l>*X 

36  TO  FUNC  *  FUNC  ♦  FIT). (MI) 

3T  IF  fKK.EO.ll  RETURN 

38  FUNC  =  10.**FUNC 

3“  RETURN 

RO  C  ........FUNCTION  FOR  OUTER  TURNING  POINTS 

R 1  A C  X  =1 ./XX 

R  2  FUNC  =  0.0 

R 3  00  90  I  =  l.NCUT 

RR  Fill  =  X**LCUT il 1 

RS  90  FUNC  =  FUNC  ♦  F  tl  l*8tNIN*l 1 

R6  RETURN 

RT  END 
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1  subroutine  vchfiicnsui 

2  C  PRINT, PUNC  A'.O  READ  SUB*'  CUT  l\’[  Cf  CU*.-****  CCrFFICtr*;- 

3  C  I  NSU.LC.l  )  PRINT,  NSW:]  :  PRIM  AND  PUNCH*  MWs?J  St  An 

A  C  P#INT,  CNSW.CE.SISREAO 

3  C0RMGN/VD/YOHC2fl ,1b I.JMI1G I 

6  IF  CNSW.LT.2t  CO  rC  AO 

7  C  . INITIALIZATION 

P  00  10  IOH  =  1, 1C 

9  JACOBI  s  C 


1C  OC  i;  IDA  =  1,23 

11  10  V0HC;CA,10HI=  Q. 

12  C  . . . .  ..RC  AD  INSTRUCTION": 

13  HEAD  101, NOUN, CJNCI 1,1=1, NOUN! 

1A  CS  2C  IDN=1,N0LN 

15  NSBO  =  JMCIONI 

16  IF  CNGRQ.EO.G)  00  TC  30 

IT  20  READ  102 , (TOHI 1,1  ON ) , I =1 ,NGBO I 

IP  30  CONTINUE 

It  IF  C NSW. CT .21  RETURN 

20  C  . . PRINT  INSTRUCTIONS 

21  AO  PRINT  103 

22  00  60  ION  s  1,20 

23  NMX  =0 

2  A  DO  SC  IT  :  1,10 

25  IF  < JMClT  I.GC.IONI  NMX  =  IV 

26  50  CONTINUE 

27  IF  (NHX.LO.C I  60  TC  70 

2P  60  PRINT  10A((VDHCON,It,!=l,N«!X) 

25  7'  IF  CNSW.NC.il  00  TO  *»0 

30  C  . PUNCH  instruction*- 

31  C  PUNCH  10 1,N0UN,CJMCI 1,1:1, NOUN) 

32  C  00  8C  ION  =1,NDUN 

33  C  r.GBD  -  JMIlD'  I 

3 A  C  fcO  FUNCH  1C2,CY0HC!  ,I0M,I=  1,‘GBD) 

35  50  COKTINUC 

3fc  RETURN 

37  101  FORMAT  CIAI5I 

3R  102  FORMAT  CAOla.9) 

35  103  FORMAT  C*  THE  DUNHAM  COEFFICIENT  •/» 

AO  10A  FORMAT  ClX,lP8016.a t 

A 1  CNO 
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40 
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SUBROUTINE  F!PA( ’MU.OE  1 

SOUTINE  RUNNING  INVERTEO  PERfUBAT.ON  APF  r ACH 
01  MENS  ION  GVSUMf  1 0  »  ,F  PL  tf  4  )  ,MT»MIM  1 1  )  .•'C  UTt  1 1  »  »YMAX  Cl  1  »  ,HJ*  (111. 


♦  MTRIAL(11)«CVST(11  ,10  I  ,tTP  I  ALCU  >  ,E»  (11  >  ,CorFFd4  1,FRK0R(  N4  »  ,  (. 

«  Fkdl*24C31«KA(ll*661,KH(ll*?fl 
COkR'.N  /EX/XI (5211, V!  (9211 ,N 

CORMCN  /X2/V (24C 3 1  r 

COMMCN/A3A  (2403  1  £ 

CORMCN  /* 4/  (24031  * 

C0MMCK/AN2/MA,*B  •' 

C0MHCN/AN4/E  ?R I AL (1G£ 1 «HTR I AL (103  I ,AJTT,* TP  I At , Rtf ( 1 JC 1  t 

COMMON /TO/YOM(2i  *  1 0  I  »  J**  {  l  3  I  C 

COMMCN/T  Nl/AL(64f64),BL(t-4)  C 

C0MM0N/PL/YPL(641  ,  AA1  ,AA2,AA3,»  PL  1 

COMMCN/PO/AI  NNdOC 1 •  AOUT (10'1,EEE(1J0) »BtlH (1001 

INTEGEA  SCH®  C 

THE  ATOMIC  UNITS  USED  INTERNALLY  IN  THIS  PACG°AH  APT  TEFI'EO  t 
BY  THE  FOLLOWING  CONST AN'S. 

FACMN  s  RYDBERG  CONST  ANT*  MASS  OF  THE  ELFCTPON  IN  API  . 

A7FA0  =  HOHR  RADIUS  C 

FACRTs  S0RT(M“EAP • AV06ADR0-NUMBE ®/(  4«T  I»C)*»1C»«?  C 

A?CRC=  0.5291 7706  C 

21  PA  =  1.0/A2ERO  ■* 

F  ACM'.  *60  •  139  72  628  I 

F  ACM  :F  ACMN/7  MU  f 

7IEN  =  1.0/FA  CM  r. 

FACR ’ =4.1 05e  0454H  I 

READ  300 1 •  L1EST  0 

IF  (LTEST  .EO.  01  RETURN  r 

. READ  CONTROL  VARIABLES  FOR  SCM®OfDI  NGE •>  ROLY!*  r 


READ  3005*  M »NS » 1 PSI 0* MAX  I T .EPSC 
EPS  =  EPSC*  Z 1 EN 

“EAO  3004 .RM;n,RMAX,M,NPFTT,NPL*“CM,LSW 

RE  AO  3021  «(MTRMIN(1  l«MTPIAL(I  l»  HJTT  (  1 1 » i  n,l  I  ) 

;F  ((M.CO. 01. CR.IM.GT. 240311  «s?40J 

IF  (  (NPL  .CO.C  1.0R.INPL.GT.31  11  \^>L  =  31 

IF  ( (NRPTT.E  Q.01.0R.(NRPTT.GT.6>1  N  4  P  T ’  =  6 

DO  80  W=  Itll 

DO  BO  1=1,98 

MA(«lf!  1  =0 

KB( J,t 1=  0 

NTT  =0 

DC  100  IDA  s  1,10 

IF  (BUTT(IOAt.LT.l.D-C61  GO  T0  120 

NTT  =  NTT  ♦  I 

IF  (NTT. EG. 01  NTT  =  1 

ABE  =  YOH (1,21 

CBE  = ABE  «2IEN 

RRE  =  FACAT/5QRT (7MU* ABEI 

CR£  =  RRE/A7E=0 

IF  (XI  d  l.GT.RMIM  f  MIN  :  XK11 

IF  ((XKM. IT. FMAK1. OR. (RMAX.LT. 0.62111  ®MAX  =x!(N! 
«H  =  (RNAX“R  MIM/FLOAT  (M-l  1 
00  140  J  sl,M 

P(J1  =  FLOAT  ( J-l  }  ,RH  ♦  PMIt; 
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74/74  CPTsC.iiCUt.Or  A/  *•/  «/-0.-D; 


f\  5.1 


56 

5  T 
56 
55 
60 
61 
62 

63 

64 

65 

66 
6T 
6h 

6  ‘ 
TO 

71 

72 

73 

74 

75 

76 

77 

78 
75 
40 
SI 
42 
S3 
S  4 
85 
46 
S  7 
88 
8«> 
50 

91 

92 

93 

94 

95 

96 
9  7 

98 

99 
10  > 
101 
10  2 
10  3 

104 

105 

106 
10  7 
108 
10*. 
110 
111 
112 


140  V<J1  s  FUNC<C.P<J11 
NT1  =  '<T»  *1 
BJTT(NTl)  =C. 
nc  1<jO  KI  s  1  .NT  1 
MR  I  41  s  99 
AJTT  s  B JTT <  Ki  1 

C  ........ ..SEARCH  FCP  CENTRIFUGAL  BA-’-E- 

TX  s  0. 

AS  X  =  1.0*70 
00  160  I=1.H 

SX  =  «<1>  «  ABE*  <RFr/P<Ill**2*AJTT 
' F  <SX.LT.ACX1  GC  TC  lfC 
IF  <SX.LE.TX1  GO  *C  160 
TX  s  SX 

ROUT  <K1 1  s  P<1! 

YHAX<KllsSX 
160  AS X=SX 

CALL  BET f*L<T X  1 
LTRI  AL<K  IrN  'RIAL 

IF  <HTRIAL<Kll.GT.(iTftIALl  HTPIAL<KI»  s  N  ‘  RIAL 
NTRIAL  s  HTR I AL<  KI  1 
180  £R  <  K 1 1  s  CTRIAL<liTPIALl 

C  . .SEARCH  FCP  IM.ERHCST  AND  CUTE-  “OS*  TURMNG  PCI*. 

N3A=H 
'  3B=0 

00  240  KI  s  l.NTT 
I.3AA  s  H 
t.  3HB  s  0 
ASK  s  1.0*7C 
00  200  I  a  1,** 

SX  s  yd)  *  ABE  *<RFf/P<I  11**2*BJTT  IK*  1 
IF  <<SX.LC.EMKI  11. AND  .  < A  ,X .GE.ER < KI 1 1 1  '<  3  A  A  r  * 

IF  <<SX.GE.EP  <KI  11. AND. <ASX.LE.ER<KI 1  11  >  ?8R  =  T 
IF  <N3BB.GT.C160  TO  220 
200  ASX  s  SX 

220  IF  <  N3  A  A  .  L  E  •  N3  A!  K3A  =  t.3AA 
IF  <MHB.GE.!.3B1  N3H  =  N2BB 
240  CONTINUE 

R  HI I  =  P<  N3A 1 
ft HAAr  P<r*3Bl 
00  260  KI  =  1 .NT  1 
AJTT  s  BJTT (KI  1 
NTRIAL  =  Lift  I AL<  KI  1 

TX  =V<N3B1  ♦  AHF  * < P P E/P P AA 1 • • 2* A JTT 
IF <RHAA. GT.RCUT < K I >1  TX  =  VHAX<KI1 
SX  *  V <N 3 A 1  *  ABC  •  <RRC/ftHl I »**2*AjTT 
IF  <  SX.L  T.TX I  TX  sSX 
CALL  BET RL< TX 1 
LTPI AL  <K 1 1  =  NTPIAL 

IF  <  NTRIAL.LT.  FT  RIAL<KI11  LTR I  AL  <KI  I  =  '-,*RIAL<KT1 
260  CONTINUE 
N*  EP  =1 

PRINT  30OC.'*!It.,RHAK,RH.EPSC«NRPTT.P»*It  .SHAA.RPE  .N^l 
,  9 HI M  =  RHIN  .7IPA 

PHAX  r  RF AX *71  PA 
PH  =  RH.2IRA 

AA1  r  7IRA*<<RHAA«RPIII*PPE-2.*ftHAA.>HIIl/<P»AA>RP;;t 
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us 

642=  <»MAA*RK.i:-2.«6FC»/<PKAA-RR;:  » 

114 

443  =  7:P4*h«L 

11 B 

00  2«  I  S  It* 

Ufa 

pm  =  p«i»«7:p4 

117 

CALL  PLE6EN<PC»» 

11  P 

OC  2  70  J  -  1  *f.‘  L 

lls 

2  70 

FXIJ.IJ  =  YPLIJ1 

12C 

S3 4  -  K 

171 

».3B=7 

122 

2b0 

1 SW-LSU 

123 

IF  «  CNREP.E0.1 I.OR.  CNREP.CQ.NRPTT  »  >  JSW=1 

124 

NT3  -Ml 

125 

IF  <\PEP.CO.M»PTT  >  r:,  7.'  32C 

12fa 

C 

12  7 

00  300  I  =  1  «7.PL 

12- 

BL (II-  0.0 

12- 

00  300  J=1*M'L 

ISO 

3C0 

4LI1*JI=  0.3 

131 

M3  =  MT 

132 

320 

6VTT2  -  0. 

133 

‘-L  =  0 

134 

00  3  40  1  =  1»K 

135 

340 

wen  =  <V<  I»-0£»»ZIEN  ♦  CRE«CCRE/P<!I>..2»HJT*<1» 

136 

00  660  K 1  =  1.NT3 

137 

MSI  fat  =  MTF.  I4LIKI  » 

136 

NTRKIN  =  HTSPIMKII 

•  13- 

IF  < NREP • LT. N6  PT  T  >  GO  TO  360 

140 

NTRIAL  =  LTRIALOU) 

141 

NTRKIN  -  1 

J 

142 

360 

AJTT  -  BJTT(KI) 

14  3 

TX  =  1.C0.K) 

144 

C4LL  BETRLITM 

o 

145 

LJI  =  $0M<AJTT» 

146 

!  F  CSU.EG.ll  PRINT  3007  iA  JTT  ,L  JT 

147 

KLI«  =  2 

>*✓ 

14- 

LLK  =  0 

14<» 

KLK  -  0 

150 

GVOIF  =  0. 

151 

GV0F2=  0. 

152 

C 

15  3 

00  600  I  =  NTRKIN, NTPIAL 

w 

15  4 

CTRJ  ALU  1  =  IETRI4LCI1  -  DE»*7IEN 

155 

ECALC  -  ETRIALII > 

156 

KA  =  K4(  K 1 • !  1 

157 

KB  =  KB (KItl  1 

15- 

IF  (SCHRINI  tf.S  .HAXIT.EPS.IPCIQ.K.RKIN.RHAXfKVU  »,ECAl  C.F1C?) 

159 

♦  #%0C  ti-iO 

w 

16  0 

360 

KLK  =  KLK  *1 

161 

IF  IKLK.LT.KLIM  GC  TO  420 

162 

PRIM  3010 

u 

16  3 

CALL  EXIT 

164 

400 

LLK  =LLK  *1 

165 

420 

IF  <KA.LT.N3AI  N3A  =  KA 

w 

166 

IF  <  KB.6T .N31II  N3B  »  KR 

167 

KA<  KI «  X 1  s  KA 

16? 

KB<  K I«I)  =  KB 

169 

HCALC  s  <S<1 I/P<1 )>.*2  ♦  4..<S<27/P<2»|.»2  ♦  < S <» I /»<“»»•• ? 
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74/74  GPT=3.6CUND=  4/  */  M/-n»-05  FT*  f.  « 

170 

KSI9P  =  9-1 

171 

00  440  J=3,KSIPP,2 

172 

440 

BCALC=2.*(S(J)/P(J>>**2  *  4 . • ( S ( J*1 > /P C J* l > > • • 2  »BCAtC 

173 

BCALC  =  FAC9*8CALC»PM/3. 

174 

ECALC  =  0£  ♦  ECALC*  F AC“ 

175 

£1 R I AL(I  )=ETRI AL( 1 1 *FAC"  *  DC 

176 

01 FF  =  CTRIALdl  -  ECALC 

177 

IFtN4EP.EQ.f.»PTT  I  GC  TT  540 

17- 

00  460  K  s  l.NPL 

179 

460 

FPL  (  K  1  =  O.i 

1*0 

00  440  J  =  MA.’B 

1°  1 

AJ  =  4  ♦  ( J/ 2 ) *4  -2  •  J 

192 

DC  4!i0  K  =  l.M-L 

IS  3 

4t0 

FPL  1 K  1  =  FPL  (  K  1  ♦  AJ<S(J>«.£.F*(K, J> 

194 

4CG 

continue 

16  5 

DC  50  0  *  =  l.T.PL 

1“  6 

500 

FPLtK 1  =  FPL  (  K1  •  R  H/i • 

is? 

c 

STATISTICAL  WEIGHT  E WG 

104 

EWG  =  1.0 

19  0 

c 

191 

00  520  K  =  1 *Nf  L 

19  2 

8L  (  K  >  s  BLTKl  «  0 IFF • FPL <K 1 • EUG 

19  3 

00  520  J  =  1 *NPL 

19  4 

520 

AL(K.J)  =  «L(K,J)  ♦  FPL(J>*FPL(K|.EAG 

195 

540 

IF  ((I.LT.9;R91N(KJ>>.0F.(I.GT.9TRIAL(KI)  ».C'’.(K!.FQ.f,*l  »1G'  '2  «•£. 

19  6 

4 

* 

19  7 

AL=  NL  ♦  1 

14« 

GVOIF  =  GWOIF  •  0! FF 

190 

GW0F2  =  GVOF2  ♦  DIFF»DI FF 

20  0 

GWTT2  =  GVTT2  ♦  DIFF » 01 FF» EUG 

201 

560 

IF  (ISW.EQ.7t  GO  TO  600 

20  2 

01 FB  =  (BTR1ALCII  -BCALC)  *1C OC.C 

20  3 

EEC(I)  =  ECAIC 

20  4 

BBB(I»=  BCALC 

20  5 

IF  ((NREP.LT.NRPTT).0P.(KI.FQ.:T1»>  G?  T  i  56 'J 

20  £ 

IF  (I.CQ.9TRPIN(KI >>  PRIM  3020 

20  7 

C 

20  a 

5f  0 

PRINT  30GB,KV(I>  .ECALC.E’RI  ALI  I  I  , DI  FF  , BCALC  ,  I) TFB  ,  C  ( <* A  )  , s  C  “rt  >  ,  •  A  ,  »>< 

204 

IF  (  (NREP.LT.NRPTTI.CR. (KI.CO. MI  1  )  GO  ’0  67  !* 

210 

IF  (I.EQ.MTRI  ALIKIM  FRIKT  3020 

211 

600 

CONTINUE 

212 

IF  ((NREP.LT.NPPTT>.;P.(PCH.NC.l>>  GO  tc  fc?o 

213 

C 

PUNCH  30  ie»NTRRINtNTRI AL 

214 

c 

PUNCH  30  19«  (KV(I  ».CCE(I  ),BBH(I  ),AJTT,I=NTR9If.  ,f.Tf  IAL  > 

215 

620 

IF(LLK.GC.l)  PPINT  3009, LLK 

216 

APLTST  =  PTRIAL(KI)  -  PTPHIN(KI)  ♦  1 

217 

GV0F2  =  SQRT(GVDF2/APLTST> 

21 F 

GWST(KI,nPEP)  =  GV0F2 

214 

GVOA  s  GVOIF/APLTST 

220 

IF  (ISU.E0.1)  PPINT  3011 ,GVD! F,GVOA ,GV0F? 

221 

00  640  I  s  1,9 

222 

640 

V(I>  =  V(II  -  C  BE  • (CRC/P(I ) 1*  *  2  *  A  J  T  ' 

22  3 

IF  (KI.E0.NT1 )  GO  T  3  660 

22  4 

AJTTr  BJT  ? (KI *1 ) 

225 

00  650  1=1,9 

226 

65C 

V(II  =  W(I)  ♦  CHE»(CPE/P(I))»«r»AJT' 
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F"  i: 

22  7 

660 

CONTINUE 

22* 

GVTT2=  6VTT2/FLC AT  l,.L“«»(,LI 

22'=' 

GVSUMINR'TPI  s  SQO  T( GVTT? I 

* 

230 

If  INftEP.EO.l)  GO  TC  700 

231 

LPP1  =N*£P  -  1 

232 

POINT  30 12 . NRM1 

* 

233 

CUT  =  GVEUMt’.PEP) 

* 

234 

00  660  K=  1 « (.PL 

m 

235 

CB AA  r  COEFUKI 

r 

23c 

I  =  SORT IERPC4IK > )«G¥T 

237 

TEMP  s  ABSir/OBAAl 

i 

236 

6r  0 

PRINT  3C13.K.0BAA.T .TEMP 

239 

700 

CO  710  I  s  I.M 

24  0 

710 

win  =  vi it* facm  ♦  oe 

r 

241 

IF  INREP. EG. NRPTTI  GC  TO  soo 

* 

24  2 

CALL  MAT  INVlDETE  RH. NPL  *1*0  1 

* 

24  3 

00  720  K  s  I  .NPL 

24  4 

C0EFFIR1  -  HLIKI 

f 

24  5 

720 

f  RROPt R)  =  AHSIALIK.KI) 

246 

C 

24  7 

VMIN  =  1 .00*10 

24  f* 

DO  760  I  s  1 «M 

f 

249 

00  740  K  =1 f NPL 

r 

250 

740 

VIII  s  VIII  ♦  HLtKI.FXtK.il 

1 

251 

IF  IVIII.LT.VMIN)  VMIN  £  V(I> 

25  2 

760 

CONTINUE 

253 

tohii.d  *  roH(iti)  -  vmin 

254 

00  780  1  =1,H 

255 

7*0 

Will  s  VIII  -  WHIN 

256 

NREP  =  N*EP  ♦  1 

25  7 

GO  TO  263 

25P 

too 

PRINT  3001 

259 

00  640  KE  =  l.NPL 

260 

COCFFIKE)  =  SQPTI AHSIALIKE «KE> >1 

261 

00  820  KEE  s  1 .KE 

26  2 

620 

FPLIKCC|=  lAHSlALlKE.KEEII/COEFFIKEII/CIFFFlKEE)  | 

26  3 

040 

PRINT  3002.KEtlFPLILI.Lsl.KE> 

264 

CALL  POTT  ABIGVT  ♦  A  2EH  0  »DE  «M  *N  TF.I  AL  I 

265 

PRINT  3C14.N3A.PIN3AI ,NJB,f>t  ‘ 3BI 

266 

PRINT  J015 

267 

00  860  I  =  1 .NT T 

• 

26 

PRINT  30  16 .BUTT (II.IGVSTII .L > »L  =  1 .N4PTT I 

» 

269 

060 

CONTINUE 

• 

270 

PRIN’  3020 

« 

271 

PRINT  3017. ICVSUMIII. 1=1. NPPTT> 

272 

RETURN 

273 

3001 

FORMAT  1  •  1  •  CORRELATION  MATRIX  OF  THE  COEFFICI EN'  S •  /  >  ’1 

274 

3002 

FORMATI/ I 5,1 CF1C.6.4I /5X.10F10. 611 

275 

3003 

FORMAT (I  i) 

276 

3004 

FORMAT  I2F1C. 0.615) 

277 

3005 

FORMAT  1414. me. "1 

276 

3006 

FORMATI*  MM  1 1,  r  *(F6.3«*t  RAMAX  =  *»F6.3.*» 

'FACING  s  »,rtT.7 

279 

♦  /»  CONVERGENCE  CRITERION  IS  ERROR  LCSS  »HEL 

•»C9.2/ 

27  0 

♦/•  NUMBER  OF  ITERATIONS  r  *,I3//*  PAR AMET£PS 

CF  TMF  FI»T-NG  “OLT*  ' 

26  1 

♦RIAL*//*  RM1N  s  •  ,F7.3.*P»AX  *• » F7.3  ♦*  OF  =• 

»F7.3»*»IPLS’» I3//I 

242 

3007 

FORMAT  I*  P ( SUL  T  S  CF  sens  OF  DINGER  COUAT: ON 

FfR  «IIJ*1 1  s'.FS.T 

20  3 

•  Af.O  J=*»l 3«//4X,*V  GV  CAL  GV  «CAS 

GV  *-C  UV  TAl 
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2*4 
28  5 
28  6 
26  7 
288 

28  S 
290 
29| 

292 

293 

29  4 
295 
29  6 
29  T 

29  8 
299 

30  0 
301 
30  2 
30  3 
30  4 
30  5 


♦  hv  m-c  simai  simm)  MA  «M  •/) 

310 1  FORMAT  I1X,!4,2F12.E,FU.5,F1  3. ‘>,Fi:.5,?ll?01C.l  I  ,:I6> 

3f  09  FORMAT  !«U  PP06RAM  iliCCESSFUL.  IMAX!T  RrACHfc  •,12, •  T  I  ME  ' )  •  > 
Stic  FC4 MAT  !•  jCHR  KOI  S UCCE SSFUl • I 

3C11  FORMAT!//*  SUM  CF  Cl FF. =  • , 1 PQ1 2 . 4  , •  AVERAGE  CIFF.  s*,31?.h,» 

♦  AMS  OF  GV  =*.012. 4/1 

3012  FORMAT  1*0  CcEFFlCIEf.TS  CF  THE  LEGE'.ORE  •'  CL  Y C  MI  A LS  AFTrR  :  T  :  *  A  " 
•K  NO.  • t 12/ I 

3013  FOR  MAT {•  H!*»I2t*>  =  •  *  IPO t  S .9  «  4X  , *R  M  s  ERrO  =  r • ,01 F. *  , 4X »  • 9f L A T  ! V 

♦  RMS  ERROR  =  *,014.4) 

3014  FORMAT!/  *r  CCCMMFNOf  0  IMFG°  AT  ION  LIMITS  ®»I\  =A<*tT4,*>  -*.  Fr 
♦,*RMAX  =F!*,;4,*I=*,F7.3/I 

3C15  FORMAT  !  1H1 ,  *  SUMMARY  CF  ERRORS  OF  TmE  I*iVE»:EO  PE®  T URP A  '  I  AFR 

♦  ACM  *//3X,*J! J*1  )*,4X,*1.*»-X,*2.*,"X,*3.*,8»,*4.*,<JX,*5.*  ,9»  , 

♦  *6.*,bX,*7.*,oX,*8.*,fX,*9.*,TX,*10.ITERArT':%*/> 

3C16  FORMAT  ! 1 X,F8. 1 « 1  OF  1 G .5  ) 

3117  FORMAT  !/•  AVERAGE*, ICFlf.S) 

301  A  FORMAT12I10) 

3C19  FORMAT  ! I 2 , 301 6.9) 

302C  FORMAT  ! lX,S7!2M--»  ) 

3021  FORMAT  ! 6 ! 12 , I 3,F 7 . C ) /5! 1 2 , ' 3 , F 7 . 0  )  ) 

V  0 


FUNCTI  CN  SCMP  7A/TA  0PT  =  3  ,KOU*.D=  A/  '/  M/-D.-OC  FT*.  ! 

DO=-LONG/-CT «AF6=-CCMM0N/-F: XEO.CS=  USFF/-FI  XED»OB=  TH/  SB/  CL/  EP/-’0/  -•  MO /-S '  .PL 
FTN5.0B.  :?T") 


INTEGER  FUNCTION  SCH  I NI  .*  S  »  "X  .£  PS  » I PGI  Q  .  VI ,  ~  M I N  . R  MA  >  ,K 7  .E 
SCMROE  DINGER  EQUATION  SOLVING  ROUTINE  F'*e  RSI  *  •!*  <E*V  »  *P 
Nt  =  l  PRIM  ITERATIONS.  PT  HER  VI  Sf  NO  PRIMfT 
NS  =  lt  PRINT  SOLUTIONS  WITH  EACH  ENERGY  LCVEL,  C'HE  V I •; t  *r 
CCRM.N/A2/V<2«C3) 

CGHNGN/AA/SICAOS > 

C0PRCN/AN2/MA.FB 
CPRIN  =  EG  »F  ACV 

IF  (M.EO.l)  PRINT  231  .KV.EPRIN 

H  =  IRMAX  -h*<If.)/FLCAT(AN-l  1 

F2=  H«H 

HV=  H2/12.D0 

EsEC 

TEST  -  -1.03 
OE  =  0.00 

. . OC TER  M I  NAT  I  Cl.  OF  INNER  INTEGRATION  L I  FT  T 

DC  10  IPP  =  1  *  NN 

LCRI T  =  IPP  -1 

IF  (V(IPP).LF.CI  GO  TO  13 

CONTINUE 

KERR  =1 

IF  ILCRIT.LT.il  GC  T C  63 
NL1  =  LCRIT  ♦  2 
NCR 1 T  so. 

00  16  IPP  =  1 *LCR I T 
LCT  sLCRIT  ♦  1  -  IPP 
VCR  I T  s  VCRIT  ♦  SORT  C  VILCT  >  -  E)*H 
F  IVCRIT.GC.20.01  GC  TC  2C 
CONTINUE 
HA  =  LCT 

. DETERMINATION  OF  CUTER  INTEGRATION  LIMIT 

00  23  IPP=  1  .NN 

LCT  =  NN  ♦  l  -  IPP 

IF  ( V(LCT  I.LC.E1  GO  TO  2 1 

CONTINUE 

LCPIT  =  LCT  *1 

KERR  =  2 

IF  (LCR1T.GT .NN>  GO  TO  83 
VCRIT  s  0. 

00  30  IPP  =  LCRIT.NN 
LCT  =  IPP 

VCRIT= VCRIT  ♦SQRTCVIIPP1  -  E1«H 
IF  IVCRI7.GE.20.0)  GO  TO  33 
CONTINUE 
MB=LCT 

00  35  IPP  =  NL1.NN 

IF  <V«IPP 1.GT.E1  GC  TO  130 

CONTINUE 

NL2  =  IPP 

00  1 40  I  *  l.MA 

S(I»=0.0 

00  150  I  =  MB » NN 
3CI»  =  0.0 
MAPI  =  MA  ♦  i 

. START  I  TER  AT  I  Of;  LOC° 


,FAC“* 
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FUNCTION  £CH«  7*  /  7*  CP  T=C  »  r  Gtl' D=  A/  £/  P/-'>,-DS  F’*  r. 


56 

57 
5P 

5- 7 
60 
61 
62 

63 

64 

65 

66 
67 
6  • 

6- 

70 

71 

72 

73 

74 

75 

76 

77 
7- 
T 

80 
8  1 

n  2 

83 

9  4 

85 
»  6 

8  7 
8  ' 
8° 
80 

91 

92 

9  3 
44 

95 

96 

97 

98 
9« 

100 

101 

102 

103 

104 

105 

106 

107 

108 
lO* 
110 
111 
112 


00  6C  XT  =  S  ,PX 

C  . .  If.UAHO  IMrr.CA'TT'. 

5(801  =  1.0-10 

GO  =  V (MU)  -  E 

G!  -  V(HH-1>  -  E 

RHGX  =  ilPlN  *  M*  FL  0  A*  (  PB-1  I 

5 ( HB-1  I  =  S(PH)«EXP(l-Mi:X»50»T(GM-(o‘,0X-H».S04'(GI  >» 
y  A  =  ( 1  .  DO  -  HV*GN)*°(FB» 

TH=  (1.0'  -  HVoGIt*  CPU-11 

8  =MH-2 

36  yc  =  78  ♦  ( ( TH-7 A  I  ♦  82 » GX * C ( K* 1  1  ) 

GI  =  V(*«)  -C 

5(H)  s  VC/C1 .OJ-HV* Gi  ) 

KER  =S 

IF  (S(M).LT.l.OO . >  GO  .(  63 
IF  ( S(HI.LE.S(»*1 > >G3  ’C  40 
yA  =  ye 
yh  =  vc 

H  s  *—  1 
GO  TC  36 
4 C  HSAVE  s  M 
PH  =  S(M» 

VIN  =  VB/PH 
00  43  J  =  8» “B 
43  S(J)=S(J)/PM 

C  . START  OtTGARO  INTEGRA!  1*6 

‘.(HA)  =  1.00-10 
V  A  =  Q  .0  OU 

g:=vcha)  -  c 

TB  =  (1.0C-HV*GI >*S(MA) 

00  46  I  =  HAt-l.H 

yc  =  TB  ♦  ((TB  -VA>  ♦  H2*GI»S(I-1 > > 

GI  =  Will  -C 

S(I!  =  YC/(1.D0-HV»GI) 

TA  =  VH 
46  VB  =  TC 

PH=5(H) 

YOUT  =  VA/PM 
yH=yc/PH 
00  50  J=8A,« 

5C  5(d»=S( Jl/PH 

C  . CORRECTION 

OF  -  0.0 no 
00  53  JrHA»«B 
53  0 F=  DF  -  S(J)*S(J> 

F  =  (-TOUT  -VlN  ♦  2.  i.  DO  *  Y  8  )  /H2  ♦  (VC8)  -  T) 

OoLO  =  OE 
OE  =  -F/or 

IF  (M. NC.lt  GO  TO  56 
EPRIN  =E  •  FACH 
OCPRIN  s  CE*FAC“ 

PRINT  233, IT,EPRINtF»DF*OEPP !N«H5AVE 
56  COLO  =E 
,  E=E  *0C 

TEHP  =  ABC ( DCL 01  -AH  (OF) 

IF  (TE8P.GT.TEET)  TEST  =EHP 
IF  (TEST.LT.C.OO*U )  GG  TC  fO 
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FUNCTION  SCHR 


74  /T4 


GPT=C ,-CUND=  A/  ?/  M/-0.-0' 


rv 


JU 

IF  <  AHGlC-fULO J.LC. AhSIFFSl  >  GC  0  NS 

It* 

6  ( 

CONTINUE 

11  5 

>CH'  =  1 

Ilf 

GO  '2  66 

117 

c*  •  • 

118 

63 

SCH«>  =  0 

11S 

66 

KV  =  0 

120 

00  73  J  =  NL1.NL2 

121 

IF!  CSC  J-l  >. LI. 3.0»  .AND.  (S  (  J  )  .GF  .O.C  I.AN0.10  C  J*1  I.GT  .C  )  1  K  V  =  *«♦! 

122 

1F((S<J-1I.GT.O.O  >.  A.-.0.(S(  JI.LC.3.1  l.ANO.l'It  J*1  .*  )  )  K¥:«V*1 

12  3 

70 

CONTINUE 

124 

C 

125 

5N=S0PT(-m*DF  J 

126 

03  73  J  =  HA  t  MU 

127 

73 

sij»  =  sijj/:.n 

12»- 

C 

12  r 

IF  INS.NE.l*  GC  TO  RC 

130 

PRINT  20  4  « KV «  F 

131 

PRINT  205,<I .StI > ,1=1 .MB.IPSI 01 

132 

60 

£0  =C 

133 

RETUPN 

134 

e3 

PRINT  202, KERR 

135 

SC HR  =  2 

13t 

RETURN 

137 

201 

FORMAT  <  •  1  •  »*  SCUP-  SOLUTION  OF  RADIAL  SCHR.  ECUATICN  F.'°  V=  •  ,  14,=. 

13^ 

♦X«*ETRIAL=* ,1  PEI 5»  7 , •  <1/CM|*/ 

13& 

IrCR.*,SX.*E*,14X,*FlF»*,12X,*0F(t>*.llX.*CCt»*,*X> 

140 

202 

FORMAT!*  KER :  =  *»U,*  OTFF  F  0  AT  I  ON  SOLUTION  TrCwMQUF  FAIL  *  •  ) 

141 

2C3 

FORMAT  <///l4,2X»lP4fl6.?«5X,  *  THE  C^OSSI*  PT.  r.CCUDS  A '  SMI 

142 

204 

F  OR  M A  T  <  *  1  SC  HR-5  CLU  T  ION  OF  P.ADIAL  SCmR.  FOUATJON  F2j  V:  »,!3.*  f- 

14  3 

♦  *,1PE15.  7/«0  I*«7X,*5<!I  * ,  5 1 20  K  !  <•  1 1  >  >> 

144 

2C5 

F0RMATI6II5,1PE15,7>> 

145 

f  NO 

_ 

; 

SUBROUTINE  PLLYN 

2 

COFMFN/T  J/X(24L3l»r<24t  I ,NU“X » NPOL  Y  .  P .  L  Y'J ,  X » X 

3 

C 

THE  ARRAY  X  HAG  TO  HE  I*.  INCREASING  r P Of 

4 

NM  =  <NPCLY*l»/2 

5 

NM1  =  NM  *1 

6 

NUP  =  NUMX  ♦  NM!  -  r.PCLY 

7 

00  2  J  =  NMl.NUP 

- 

IF  <XXX.LC.X(U>>  GO  'C  4 

R 

2 

CONTINUE 

1  0 

J  =  NUP 

11 

4 

L-  J-NM 

12 

LLL= L  ♦  NPCLY  “1 

13 

PCLYN  =  C.O 

14 

00  6  K=L , LLL 

15 

TERM  s  1.0 

16 

00  5  M  =L,LLL 

1  7 

IF  TK.NE.M)  TERM  =T  t  -t  M»  (  XXX-XI  *  >  »/ (  XI  K»-X  1  •»»  ) 

in 

5 

CONTINUE 

n 

TERM  =  V<K)«TERM 

20 

6 

PCLYN=POLYN  ♦  TERN 

21 

RETURN 

22 

ENO 

i 


I  T 


i 


t 

SURR  JUT I  hC  HfThL«T»> 

*> 

C 

THIS  SUHKCUT 1  '.£  CALCULATES  T Ht  VALUES  “F  FTMAL  4*0  H 

3 

c 

%T  R I AL=r  THE  VALUES  ARC  T  ARE  E  WHICH  HAVC  OK'  •  “FAD  I*  F’  *  '  >*f 

4 

c 

RK3  OECK. 

5 

01  PENS  ION  f I A< 10  1 

6 

COPHON/YO/ VilH  (?C»10>»1“(10) 

7 

COP HON/A N4/E1RIALC 1C-  I.HTRl  AH  10  0  )  .AvlTT.*  T  -» I  At  *KVClt  1 

fl 

IF  <NTRIAL.E0.C1  RETURN 

4 

NC=0 

10 

NlNsf.TRI  AL 

11 

Ft)  zC  . 

12 

00  40  I  =  liUK 

13 

KV  <11  =  NC 

14 

nc  s  rj  c  *1 

15 

ANV  =FLG AT <11  -  0.5 

16 

NAB  =  0 

IT 

00  10  IA  =  1.10 

1/* 

NGBD  s  I H  < I  A 1 

1° 

IF  <NGBO.£0.01  CO  TC  2C 

20 

NAB  s  NAB  *1 

21 

FAC V  si. 

22 

VIAUAts  0. 

23 

00  10  IB  S  l.NGKD 

24 

T I  A  < I A 1  s  V I  A  < 1 A 1  •  F  AC V* Y  DH< I H* I  A 1 

25 

10 

FACV  -  F  AC  V*  AN  V 

26 

20 

TI  AU.AB*  U=C  . 

27 

f TRIAL <11=0. 

2" 

RTR1 AL<t  1  =  0. 

2" 

FACJ=1. 

30 

00  30  I A  s  I.r.AH 

31 

ETRIAL<I>=E?fIAL<I>  ♦  TIAflAl.FACJ 

32 

AIA=: A 

33 

BTR I AL  <1 l=  B ' P I A L  <  I  >  ♦  YI  A { I A*1 > «F AC J* A ! A 

34 

30 

F ACJ-F ACJ-AJTT 

35 

IF  <ETRIAL<I l.LT.EC »  CC  TO  5C 

36 

IF  <CTRIAL<I I.GT.TAl  CO  'P  50 

37 

40 

EC  =  £TBIAL<J> 

3» 

GO  TO  60 

39 

50 

NC=NC  -1 

40 

60 

MRIAL  =  NC 

41 

RETURN 

42 

CKO 

l 

SUBROUTINE  FLTCf  <7> 

4. 

C 

THIS  SUBROUTINE  CALCULATES  4  hE  LEGEfOFE  POLY"  rPT  *  L  S  YPI  HY  -'A*. 

3 

c 

CF  A  RECURSION  RELA1.CI.  AND  PULTIPLIES  ’HE**  HY  A'  FKrO'  f '  T I  Ai.  C 

4 

c 

CFF  FUNCTION  AS  PEOLiPEO  F0S  THE  CSRPECTION  FUNC TICS  WHICH  W  01 

5 

C 

fics  the  potential  after  cvr*r  itera-itn. 

6 

COBNON/Pl/YPL <E4» (AA1 .AA2.AA3  .NPL 

7 

11-  <Z-AA31/< AA1 »AA2*Z1 

** 

YPL< 1 1  s  1. 

o 

YPL<2»=Z7 

10 

00  10  I  =  3.EPL 

11 

AI  s  1 

12 

10 

YPL  < 1 1 s  <YPL<I-Il«zz. <2..AI-1.I-YPL< I-?».<AI-1.1»/AI 

13 

FACs  ZZ»  *10* 3. 

14 

IF  <F AC. GT . 5(i  . )  GO  ’C  20 

1* 

FAC  *  EKP<-FAC> 

16 

GO  TC  30 

17 

20 

FAC=0.0 

1R 

30 

00  40  IslfNPL 

14 

40 

YPL  <11  =YPL<I l.FAC 

20 

RETURN 

21 

CUD 

I 

i 


f 
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SUH80UTP.E  PCTTAH  79/79  u»  Ts  0  tQ  C'U‘.U=  A/  5/  MZ-Ot-O*:  F»* 

oo=-«.o(kc/-ct«afg=-co»*hck/-f; xeo,cs=  userz-ft ked«oh=  to/  o«/  'i/  fr/-to/  '•n 

FTN5.DH.  1-- 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 
13 
19 

15 

16 
17 

19 

20 
21 
22 
23 
2* 

25 

26 

27 

28 
2® 

30 

31 

32 

33 
39 

35 

36 

37 
39 
39 
90 

11 

12 
13 
99 

95 

96 

97 
90 
99 

50 


SUHPCUTl  f.E  POTTABCGVT  t  A7T  RCtDEtMtM'R  !  AL> 

C  "CUTINE  FOR  ’  STCRPOLAT  1  OK  OF  p.SER  Ar.D  ■'*liTEt.  7UR  SPG  P0-‘w7i 

01  PENSION  21(521) 

COMMON/PO/AP  *,(100  >  «  A0i;T<  1  CT  )  •EEEtlOC  I  tHHHOCC  I 
C0PPCN/T1/XM29C3)  tT*  (290  3  >  t  ».U“X  t  NPOL  Y  tPCL  Y*.  t  XXX 
C0MMGN/A2 /V ( ?9  3 3  > 

COMMON /A 3 /p ( 2903  I 
COPMON/E  X/X:  (5  21  )  .  trcsii  >.*■' 

C0M9CN/TMl/AL(69t69 >,BL(69> 

C0PPCS/Pl/TPL((.9>  .  A«1 tAA’.AAJ.SPL 


C  GEAhCH  FCR  MI M MU“ 

CO  Id  1  r  1  *  M 
IP  P(I)  =  P ( I  I • AZEF  0 
TX  =  V(l) 

00  15  1  =  2tP 
:f  (v(d.ge.u)  go  to  15 


T  X  -  V  ( I  ) 
IM1N  =  I 


15  CONTINUE 

C  . INTER  POL  AT  1 CN  OF  THE  POT  F  NT  I  AL 

NPOLY  =  9 
DC  30  NR  =  1*2 


r.A  =1 
SB  =  IMIS 

IF  (NP.EO.ll  GO  TO  20 

SA  =  I MIN 

SB=M 

20  00  25  |  =  NAtSH 

NUPXs  I  ♦  1  -NA 
X=I 

IF  (NR.EQ.l)  x  s  IMIf.  ♦  1  -  T 
XR ( NUMX) =  VIK) 

25  TR ( NUMX) -P ( K I 

00  30  I  =  1 , ST R I AL 
XXXsECEd  » 

CALL  PLLTNN 

IF  (NR.EG.l)  A 1  SSI  I )  s  PCLTS 
IF  (NR.E0.2)  AOUT(I)  =  POLYS 
30  CONTINUE 

C  . . PRINTOUT  OF  THE  TUR  IM *.G  POP  ’S 

PRINT  101 
C  PUNCH  101 

00  35  l  s  It S TRIAL 
I  As  I -1 

B8B  (  I  IsBHBC  >*130.0 
IF  (IA.E0.90)  PI  I  ST  101 

C  PUNCH  102tIAtECE(  II  .AINMI  It  ANOUTI  I>  .HIIB(  I  > 

35  PRINT  102 tlAtEEE (I ItAISS(I) tAOUT (I)tHBBC ) 
00  90  I  =  It- 
XR ( I >  r  P(I) 

VM  I  >= V(  I  > 

,  SUMX  SM 
IA  s  0 
IB  s  N  *1 
00  55  Is  1 tS 


90 


V  ' 


SUBROUTINE  POT-AD 


74/74  CPT=0 .*OUND=  A/  Tt  M/-D.-0' 


F  T  *  * 


n 


56 

5T 

-N 

5b 

59 

60 

45 

61 

62 

63 

50 

64 

65 

66 

55 

67 

60 

6* 

6‘* 

TO 

65 

Tl 

70 

T2 

% . 

T  3 

74 

75 

75 

C 

76 

■0 

77 

7n 

• 

7C 

P0 

9  1 

C 

'v  / 

02 

C  R5 

S3 

c 

8  4 

c 

u 

Pi 

c 

66 

C  90 

87 

kJ 

S- 

89 

95 

90 

91 

99 

92 

1C1 

93 

W 

94 

102 

95 

103 

96 

97 

104 

98 

99 

XXX  =  XI  lit 

IF  (XXX.G£.P(1>)  on  TO  45 
I*  =  l 
60  TO  55 

IF  (XXX.LC.P(Hl)  GO  *0  t’J 

IB  s  I 

60  TO  60 

CALL  PLLYNN 

2I(I>-  T  I  < 1 1  -  POLVN 

VI  (1 1  =  POLYN 

CONTINUE 

IFUA.EQ.OI  GC  !C  7 u 
OC  6b  I  =  1.  A 
21(11  =  2KIA.il 
YI(II=VI(II-2I(I> 

IF  C8.EQ.  (*.»1  II  GC  TO  FC 
DO  75  I  =  IB,' 

21(11  =2  I ( IB-l I 
VI(II=YI(I>  -2I(I> 
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1.640  7557150*00  5 . 0 4 5 1 65  1  5 SO* C  2 

1. 67  22533540*00  =  .  6e  549c.5  250  *0  3 
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1.7906454350*00  4.6594114350*03 
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-4.22-49  56f'0*C2  1.54 

-4.2cl‘6c'''<’0CO.3?  1.t424I?25tr.C'' 
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2. 59 976854 50 *00 
2.60  48354220*00 
2.6099149860*00 
2.6150075700*00 
2.6201134500*00 
2.6252329070*00 
2.6303662700*00 
2.6355138050*00 
2.6406758310*00 
2.6458526610*00 
2.6510445600*00 
2.6562518910*00 
2.6614749170*00 
2.6667135540*00 
2.6719693360*00 
2.67  7241 3610*00 
2.  6->  25303290*00 
2.69  78366200*00 
2.6931604910*00 
2. 6985023080*00 
2. 7033623510*00 
2. 7092410150*00 
2. 71 463*6050*00 
2*7200554560*00 


1.1711  33;  JtU«i4 

1.1*-6C2-.  7 36C * C 4 

1.2002781660*04 

1.2156629720*34 

1 .2254404260*04 

1.2451531S3D«C4 

I. 2558262*60*04 

1.274441  ?64C*C  4 

1.2»3C174.,1C*C4 

1.3035474121'. 04 

1.31*03165-0*04 

1.3224700410*04 

1.3468425320.04 

1.2612091400* 3 4 

1.2755057670*04 

1.3867649620*04 

V.403973119C*C4 

1.4161357000*04 

1.4322521820*04 

1.4463225110*04 

1.460 3446670*04 

1.4743245480*04 

1.48625620211*04 

1.5021 41 4950*94 

1.5159604220*04 

1.5297729570*04 

1.5435169950*04 

1.5572 18 536 r»Q4 

1 .5708715300.34 

1 .564»77e450*0  4 

1.5560375C2l’*C4 

1.6115504550*04 

1 .6250166160*04 

1.6  364359 15C  *0  4 

1.6518  08  32  71' *04 

1.6651237630*04 

1.6764121650.04 

1.6916435040*04 

1  . 7G4827661f.» C4 

1.7179646010*04 

1. 731054248D*C4 

1 .7440965160*0  4 

1.7570913710*04 

1.7700 38 6 66 0*04 

1. 7829384C9D«C4 

1.7957904620*04 

1.8065947610*04 

1.6213512260*04 

1 .8340597760*04 

1.8467203070*04 

1.8593327640*04 

1.8  71 896  5  5  60*04 

1 .8644129690*04 

1.6966805530*04 

1.9052996520*04 

1.5216701460*04 

1.53399201 70*04 

1.946265.820*34 

1 .9564892290*04 

1 .5706642760*04 

1.9627904030*04 

1.55 98671 760*04 

2.0068946120*04 

2.0168722550*34 

2.0336009160*04 


1.1-616-321 
1.1675 152550. 02 
1.1  7606968.60*0? 
1  •  l  7 :  -  1  7  70*  0  2 

1.16171CC3)0*C2 
1.155 1514740*02 
1 .144615454,'*32 
1.136C*  10610*02 
1.1275666  56>*32 
1.11  =  0=  32=2‘'*02 
1.1 1C6  120630*02 
1.1021262700*02 
1.2=26(96620.02 

1  .3*‘-20442ro.32 

1.07674002(9*02 
1.06-2793310,02 
1.05=8020250*02 
1.051322=220*02 
1.0428323 58 0*92 
1.03432  2310*02 
1.025605(140*32 
1.01  7266.6970*02 
l.L  C669985((i.02 
1 .CCC1 O'  8220*02 
9.9198863300*01 
9.826  357(570.01 
8.79197960t0.?l 
9.6541917-10.01 
5.5(  6991  C9=l'*01 
5,476.  .’  1 1  6  4 r) . 0  1 

9.2= =7 132760.01 
5.30C  53273-  n*01 
5. 2106167*50.01 
5.12C  542=  2V  *G1 
5. £2=63=5700. 01 
6.93-1071930.01 
6. 695690557  V' .01 
6.7528656660.01 
8.655 3597760.01 
8.569=515360*01 
t. 9697736520*01 
6.3737  6  5?171>*C1 
6.276*395=00*01 
8.17'  259c9CO*02 
c. 6806573990*01 
7. 5611551260 *01 
7.6607171060.01 
7.77=  3021 320*01 
7.6769212960*01 
7.5735351770.01 
7.96=  0998250*01 
7.3626527180*01 
7.2571297570*01 
7.19=5290540*01 
7.04T6  342330*01 
6.83101  =  8071)  *01 
6.8201043545*01 
6.70*0297120*01 
6.5=46303160*01 
6.4*04662180*01 
6.36  48  2  =  ')C6D*01 
6.24(2501720*01 
6.1303721170*01 
*. fill  32330(0*31 
5. *810(51620*01 


3.7  .*  i  5  71  If  «.  ; 

2.6  7;  5  «=1  6  •:  =  ♦£! 
3.J2  M22  .Vr«C 
3.  76  •  1  25  “  6  IT  *  C  1 

3.71  r  1  72001 
2. 6577  25  =  (?''♦;: 

1. £Cr*f  662=*i’ 
J.54-4*2!22r*r: 
2.459224  •«(r.r  = 
3.*9  9  =  4  76  7=  « 0  * 
3.267CC-2C 1=*01 
2..*7,*7c»2*r«<': 

?.i  -ini3i2r*:; 

3.22-71416 lr.Cl 
3.176  •.242«*''*C1 
3.125J2212-=*C1 
3.072*26(£2r*0; 
3.C221465060  *01 
2.97?7»=  770*01 
2.52?864£77r*C: 
2.6722776460*01 
2.824236  4290*01 
2.775746  42  =  0*0 
2.7276141200*0 
2.67=5449710*01 
2.622 7*266 Cr*Cl 
2.5660160120*0; 
2.52=  1656420*01 

2.496  1  126  220*0 
2.90  2=  1=  9750*0 

2.  ’5=  6  1  72770*0 

2.71  56  10  1  250*0 
2.212ttC<-!70*Cl 
2. 22£6'17J50*O 
2. 1212  =  4  •.  260*01 
2.l45  5  =f’(8co.c: 
2.10426'2--  =  *0«c: 
2.06  24=  2  2200*0 
2,027205  7(20*0 
1.9634257760*01 
1  ,899171  =27r'*C'. 
1.9C5916 22  0*01 
1  .  =  5717554?'',  C! 
1.62=44227  2T«0 
1  .7=2221  =  410*0 
1  .7551111  2<  0*0 

1.71  =  7102500.0! 
1 ,6e  361825°0.c; 
1.64*  4270110*0! 
1.61 2762 (71* .pi 
1.57=5854640*0 
1.545832(140*01 
1  ,512  776>  C  TO  *C 1 
1.46  =  122  710*0 
1 .4475701=50*01 
1.4162172620*0 
1.3a=l6Il67C*31 
1.7845C2!  4ic*r,i 
1.2242376650*01 
1.2=*l6?76ir*t: 
1.26*  4782400*0 
1.2  7'  761  25  =  0*0 
1 .2  C  -567  75  ic«r: 
1.16'  6  350  2  0 *C  1 
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2.  731948309U*0C  2  .0  S  *50fc  2*  3u  ♦  3  *  5  .9*  ft  7:>4«  »li*  J  1  l  •  1  *•  -J*.  l«i'*«. 

2.  736425  C  1  50*00  2.06b2-7G5aO*£.4  5  .6232t3u7r-P*<51  l.'.f  !5f  M‘r  *CJ 

2.  }«  1  S22  3  (  20*0  0  2.07  0156500*. 4  -  .39*-  338  (  7»-O*0  1  1  •  *  7*  6  £7  ?  2  C  C 

2.  7474407240*00  2  .Or  4694  0  6  90*  0  4  ?  .  2  7 II  Cc  2S2P*C  1  1  .  i  4  ■  I  *6  «  I<f*  C 1 

2. 75298947 40*00  2.1012222210*04  5 . 1 449 264  36'** 01  1 «C2 • I"4 ? • 1C «C J 

2.  750541  9890*00  2 .11  289-,  4600*  0  4  5.016*735520*01  "•  .9* :  *-  *  5C “  c  r  ♦" . 

2.7641255620*00  2. 12  44  27. 1**00*  0  4  4.  £8668  76  f  2f)*0 1  ** .  75  r  6  2*  7  2*C  ♦  C  ' 

2.7857216410*00  2 .1359020530*04  4.7561710710*01  c .5 2 4 2 r 5 *l -C ♦ C 

2.7752606(10*00  2 . 14  7226  ■>  250  ♦  C  4  4 .6?4?2C?3»-O*01  r.  .2 c  3  4  3*  1  2 6 C*  C 

2. 74 10128090*00  2.15»70G6560*C  4  4. 45  13'  1( 2*0*01  8 .0 6  7 3 44 4  ’ C C • C ' 

2.  74  668-65  50*00  2 . 1  7002  JG5SO*C  ♦  4 . 25  73  7-= .  1  4r1*0  1  -.-4*075  I2r*t 

2.7923885520*00  2.1812535  560*0  4  4 . 2 222^  2*‘6 3  ) ♦  0  1  >. .6 2  7 4 r  ‘  - 6 4C ♦  t ' 

2.  79811286  70*00  2 . 192  51  32  6  5|i*0  4  4 . 0  -  6 1  »62  32  •!  ♦  0 1  c  .  4 1  42  4*  -  '  J**  ♦  (, 

2.80  38620680*00  2.203680  7510*04  3 .045  C24- 1  li'*0  1  -  . I 5  3  C4  ?*  If  •  2 

2.8096365120*00  2.2147962  230*04  3. r  1 I  5C  2 C  t6 !'♦  0 1  -  .00  :  62*  26 C r. «  C 

2.8154366450*00  2.2258595650*0  4  3 .  t  7 1  6  C*<  25 30 ♦  0  1  7 .8"  r  1 (<  * 4 6 >* ♦  (. 

2.62  12628900*00  2.2368705560*0  4  3.5  3178  765  70*01  7 .6C  2 8 f  5 '  2 2 r  ♦  C  .* 

2.8271156710*00  2.24  7629  0  280*0  4  2 . 39  06  6  5  3  C  <■  '*0 1  7 .4 1 1  7  3e*  54  C  ♦  0 

2.6329954310*00  2.2567347540*04  3.2490501030*01  7 . 2 2 76 85 7 72r *0 • 

2.8389026280*00  2.2695876660*04  3.1064646510*01  7.3 35 6 7‘ 5 1 *r *C 

2.6448377060*00  2.2803874550*04  2.5630607620*01  6 .854 6 72 2 1 7C ♦ t ( 

2.8508011250*00  2.291 1 33- 630*6 4  2.816* 0 76760*01  6 . 6  6  36 ' 4  *5  8  C  «  Cr 

2.8567933450*00  2.3018269910*04  2.6740450700*01  6 .5 1 1 486 1 42'* p( 

2.9628148520*0(1  2. 3 1 24  66  3 340  ♦  C  4  2.52*  533  6660*01  6 . 3  4  32 1 1 1 2  4r  *C: 

2.8688661500*00  2.32  30  517950*04  2 . 3fc  24C C  7 1 2U* 0  1  6 . 1  7 *■  7 5  1  7  2  1-7 «  C! 

2.8749477120*00  2 . 3335831  58D  «  0  4  2 . 2  35  7  0  '  t  200. 0 1  6  .  C  1  -  C  6 1  ?  1 Cl'  *0 

2.68  10600360*00  2.3440602110*04  2  .(  8r  5C 3-6  3')* S  1  5 . 8 £  1 1 6 8  ? £  1C  ♦  t ■ 

2.8872036430*00  2 . 35  4462  7  3SD*  0  4  1  .  9406  44  2  3  3D*  0 1  5  .  70  7  7  «•  f  5  4  «  C  1 

2.89  33790560*00  2.36  4650  5260*0  4  1 . 7*276 2  1  6 1 0* C  1  5 . 5 5 6  1  05  3C  8 r  ♦  C  < 

2.899586  7850*00  2.3751633420*04  1.6443*21090*01  5 . 4 1 1 6 95  1 5  ’6 * 0 : 

2*90 58273790*00  1 .3854 20 56 7C ♦ 0  4  1 . 495 7 026 C 3D.0 1  5.  .2 6  5  4 u 5  I  1  7f  ♦  C f 

2.9121013960*00  2.3956  231  700*0  4  1 . 3*6«  0  3  70 1  o*0  1  5 . 1  3 2 6  2r  6  1  r  ♦  0' 

2.9184093760*00  2.4057697120*04  1.1977576600*01  4 . 9 5 FC 74 * r. C I 

2.92 47519040*00  2.4158603660*04  1 . 0 46  6 26 1 1< 0* 3 1  * . f 6 2 2  4 2 1 5 6 r . C 

2.9311295500*00  2 .42589498 30*0 4  6.994* 362340*00  4 . 1 3 3 2 l 1 255 r • 0 ’ 

2.9375429350*00  2.4  358  730  250*0  4  7.50 3985  •  1 30*0 0  4  .60  7 455  5  1  3C « 0' 

2.94399261 20*00  2. 4 45 7945 260 ♦ C 4  6.314527,310.30  4 . 4  *  4  9  0  C  »  r  *  C  •  ( 

2.9504792540*00  2.45565918  40*0  4  4 . 52  71  06  34  •  0*00  4 . 26  c  4  Sr-  6  2  C  -  ♦  C 

2.95  70034540*00  2.4654666970*04  3. 0 4 2626 Cr 40*0 0  4 .249 1 96 45 2  *>  ♦ C 

2.96  35658500*00  2.47  5216*  260*0  4  1  .561691  2760*00  4 . 1  2 r 6 4 6  * 2  7T ♦ 0 

2.9701671220*00  2 . 48  4409 3  0 eD*0  4  B. 557097* 1 10-02  4 .02  6 £  1 5  7  s  V~  •  C 

2.9768079020*00  2. 49 454 38 730* 0 4  - 1 . 38 52  CO 75f 0*00  3 .9 i - 2 £  2 7 C 6 2 ♦ 0 ' 

2.98  24889080*00  2 . 5 0  41  20 26  70* 6  4  -2  ,r.  44  76  2 C 660*00  2 .6  1  2*  2  4C  1  20  » 0 

2.9902108420*00  2.5136382180*0  4  - 4 . 30 7244 C 4 1 D* 00  3 . 7 1 2 2 1  4 495 C * C 

2.9969743770*00  2.5230974440*04  -5. 75 6 59 32 1 C 0*0 0  1 . 6  1  3  4  7*  C  35r  ♦  C  ’ 

3.0037802570*00  2.53249  76700*0  4  -  7. 1969 1«  2220*00  3 .5  !  7  ?6C  ■*.  5  *T  *  t ' 

3.0106242660*00  2.54 i838 6260 *0 4  -6.6273611040*00  3 . 42 3 5 0 4 7 <5 C ♦ 0 • 

3.01  75220820*00  2.2511200160*0  4  -1.0046809280*01  2  * 33 2 ( 5 7  =  1  40 ♦ C f 

3.0244595580*00  2.5603415740*34  -1 . 1 4544° 3560*01  3.24*763C7ir*C' 

3.0314424480*00  2 .5695026820 ♦ 0 4  -1 .20 4“ 1 0 5590*01  3. 15  *  * 65 3 ( 7C • Of 

3.0384715940*00  2.5746039680*04  -1.4230  019  310*01  3.0 7* CC5C 29C ♦  C. 

3.045547 78  ID* 00  2.3676442550*04  -1.5565771570*01  2 .99 46 3r2 26 C* C' 

3.0526719270*00  2.2966  235  2  70*0  4  -1 .654571*- 510*01  2 .5  1  555c5  24C*  t 

3.0598448410*00  2.605541  *7  70*0  4  - 1 . 8276 52  -  69 0*0 1  2  .S  3 •  6  36  1 5  ?r «  0  ' 

3.0670674870*00  2.61 4297 S260* 0 4  -1.45533*9610*01  2.76  549  3rca,'.a  ; 

3.0743407080*00  2.62  319  2  2430*0  4  -2.O06R8 3C 0 70*0  I  2 . ( S 3 2 1 6 ' 2 36 ♦ ( 

3.0816654950*00  2.6319244560*04  -2.21(4212520*01  2 .6 2 26 5C 6 7tr*C c 

3.0890427460*00  2.640594  1290*04  -2 . 3 416 1 1 ' 0 1 0*0 1  2 .35 5 £  41 6 1 CT « C 

3.0964735210*00  ,  .*  .64  7200  >  710*04  -2.464962 -610*01  2.4c:C34  06*  *1 

3.1039587960*00  2 .65  77  44  6  6  lf)*9  4  -2  •5-,575362a  I)  ♦  0  l  2 .426  1  7  1'  *  IC  *0 ' 

3.11  14995920*00  2.6662240930*04  -2.704(  7-0029.01  2.36*I14*1  r»C 

3.1190969930*00  2.6  746413510*0*  -2 .1 1S626- 5  30*0  1  2 . 3C- *C  ‘  4  15*r  •  C ' 

3.1267520650*00  2.602993  7140*0  4  -  2 .4 328 7C r 7C 0*0 1  2 .24 5  16 3 5 « «C* C  ‘ 

3.  13*4654790* '0  2 .691  281 1 7«U*0 4  - 3. L 4 31  3'* 21  f.t>*0 1  2 .1  »• '  1  70 1  C 4t *C • 

3.1422396040*00  2 .696504 v C50 *0 4  - J .  I  50* 7 3C 020*0 1  2 . 1 3 *16 << S ? C*C 
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3.1659330670*00  2.72  378.3:760*0  4 
3.17  295Hfi92U*00  2.731  7442200*04 
3.  14  20 50 £750*00  2. 735£39i 5fc0*0 4 
3. 19  021 04660*0  0  2.7*7*67  2  440*0  4 
3. 19  tl« 363  7617*00  2 . 7  552  it  4  a  30 .0  * 
3.206737*350*00  2.762422*560*04 
3.21  51046020*00  2.7»C54e-04,)*04 
3.22355271*0*00  2  .  I  7'  1072530*04 
3.2320717710*00  2 . 78559  /  48  40*0* 
3.2406673590*00  2.7430141700*04 
3.2*43412260*00  2.80 0 3726 1 6D* 0 4 
3.25804*4440*00  2 . 80 765565 7D*C 4 
3.2664304720*00  2.8146645180*04 
3.2758444880*00  2.8  22014  36  611*0* 
3. 2H 485394 10*00  2. 8 2* OP' 75 10* 0 4 
3.2439457190*00  2 . 8 3 6052 76 50*0 4 
3.3031269650*00  2.8430261210*04 
3. 31 2 399 65 J 0*00  2.849886 52 70*04 
3.3217659190*00  2.8566796940*04 
3. 33 1 224 0  3  00*00  2.8633993450*04 
3.3407883060*00  2.87 J0472C3D«04 
3.3504491150*00  2.8766229970*04 
3.3602129010*00  2.8631264560*04 
3.3700822690*00  2.8995573330*04 
3.3800598040*00  2.8559153591.04 
3.3901483660*00  2.9022003020*04 
3.4003506570*00  2.90r*l 1 9 C5D*C 4 
3.41 066'*77GO«0C  2.9145445490*0  4 
3.4211086480*00  2.9206141510*04 
3.4316707270*00  2.926604 4 530* C* 
3.4423590070*00  2.932520*4 7C *0 4 
3.4531772480*00  2 .9 3 t 362C 4 60*0 4 
3.4641288470*00  2 .9* 41 29C 1 3D* 0  * 
3.4752176950*00  2.945821 I«6U*C 4 
3.4864475160*00  2 .9554 3t 3 7 7C* C 4 
3.4978224980*00  2 .960980 4 19D* 0 4 
3.5093468940*00  2.9664471540*04 
3.5210251840*00  2. 9 7 1 8 Js 4 5 60* 0 4 
3.5328618640*00  2.9771541200*04 
3.5448615180*00  2 .96 239408 6D* 04 
3.5570302640*00  2 .98 755b 2 05D*0 4 
3.5693722950*00  2.9926463720*04 
3.5818936300*00  2.9976564900*04 
3.5945999040*00  3.0025944630*04 
3.6074573990*00  3.0074542180*04 
3.6205924900*00  3.0 1 2?37682D*0 4 
3.6338918200*00  3 .01 6944 796D«0 4 
3.6474025570*00  3.0215755100*04 
3.6611322420*00  3.0261297640*04 
3.6750895260*00  2.03 360 75830*04 
3.6892798660*00  3.0350066690*04 
3.7037145420*00  3.0393336640*04 
3.7184030260*00  3.0435815640*04 
3.7333535810*00  2.0477537290*04 
3.7485779060*00  3.0518465860*04 
3.76408614(0*00  3.0558677520*04 
3.7758900520*00  3.0559100430*04 
3.7960021620*00  ,  2.0636759870*04 
3.81 24356220*00  3.0674653100*04 
3.8252045290*00  2.0711763460*04 
3.6463237260*00  3.0746150240*04 
3.8628094950*00  2.6 7b375380D*04 
3.88 16785  700*00  2 .8e 185“ 44£0» 0 4 
3.8959497450*00  3.0852672520*04 


- i.3‘-*v>7 1 ; ;iti* .1  .'it/  i.i-i't*'. 

4529175150*01  1.57' 14*4r;r.C' 

-3.54-5066530*01  l.c2’474  5tC«C' 
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-2.018*875560*01  4 .€75* U 76 4C- Cl 
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4.0439670000*00 
4.0633110640*00 
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5.4507736520*00 
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3.1516055770*04 
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Supplementary  References 


The  following  are  references  which  contain  informa¬ 
tion  about  the  reduction  of  spectroscopic  data  and  the  construc¬ 
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generates  potential  energy  curves  using  the  Rydberg-Klein-Rees 
(RKR)  method.  The  second  routine  through  an  inverted  perturbation 
analysis  (IPA)  adjusts  the  RKR  curve  so  it  is  consistent  with  the 
SWE  model.  Finally,  techniques  are  presented  for  extending 
potential  energy  curves  to  the  dissociation  energy,  De  ,  when 
the  spectroscopic  data  alone  is  inadequate  for  the  purpose. 

Use  of  the  programs  is  demonstrated  for  the  diatomic  molecule 
lead-oxide.  Constants  are  produced  for  the  A,  B,  D,  a,  b,  and  X 
states  from  previously  published  experimental  data.  A  new  set  of 
assignments  is  made  for  the  b  state  experimental  data  producing 
constants  with  significantly  improved  accuracy  over  those  reported 
in  literature.  The  b  state  constants  are: 

T  =  16325.1+11.2  cm-1 

e 

W  =  430.99+2.47  cm-1 

e 

W  X  =  -0.757+0.441  cm"1 

e  e 

These  are  one  standard  error  limits.  Potential  energy  curves  are 
generated  for  the  a.  A,  and  X  states  of  lead-oxide.  The  X  state 
potential  energy  curve  is  extended  to  its  dissociation  energy. 
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